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Preface 



This book is intended to guide the beginning or experienced system programmer 
through the internal operations of the TRSDOS operating system used on the 
Radio Shack Model I computer. A knowledge of basic computer architecture and 
assembly-language programming is assumed; however, the reader need not be 
familiar with the details of either on the Model I, as the significant features of both 
are presented in the text. 

Chapter One describes the Model I system architecture as it pertains to the 
operating system implementation. A general description of the Z-80 CPU register 
sets and interrupt modes is included. A complete description of the Z-80 CPU and 
its instruction set may be found in the following manuals: 

1. Radio Shack Editor/ Assembler User Instruction 
Manual, Catalog Number 26-2002 

Available from Radio Shack 

2. Z80-CPU Technical Manual 
Part Number 03-0029-01 
Price $7.50 

Available from ZILOG Component Publications 
1315 Dell Avenue 
Campbell, California, 95008 

Chapter One also contains a description of operating systems in general. This 
material is presented to give the reader a broad framework with which to compare 
the TRSDOS system. 

All or portions of Chapter One may be skipped, depending on the experience 
level of the reader and the particular area of the system being studied. A detailed 
study of the code used for interrupt processing or any of the device drivers will 
require an understanding of the material contained in sections 1.1 through 1.3. 

Chapter Two presents a broad overview of TRSDOS from a functional point of 
view. This chapter may be skipped if the reader has experience using TRSDOS. 
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Chapters Three through Ten discuss the individual components of TRSDOS in 
varying degrees of detail. Accompanying each chapter is a fully-commented source 
listing for the module described in the text. Following the source listings, where 
appropriate, are diagrams and descriptions of the data structures used by the 
module described. 

Experienced systems programmers may read these chapters in any order, 
depending on their interests. Less experienced readers should begin with Chapter 
Three, since an understanding of nucleus-provided functions will be assumed in 
succeeding chapters. 

Chapters Four through Ten may be read in any order. 

Chapter Four describes the command line interpreter used by TRSDOS. 
Included in this module are subroutines used by the module described in Chapter 

Nine. 

Chapters Five and Six describe the modules used by the file management 
system. The module described in Chapter Six contains subroutines referenced by 
the module described in Chaper Nine. 

Chapter Seven discusses the error message processor used by TRSDOOS. 

Chapter Eight describes the debug module available with TRSDOS. 

Chapter Nine describes the module containing the bulk of the TRSDOS 
commands. This chapter is divided into sections by command, each command 
being a seperate section. These sections may be studied independently of one 
another. The system bootstrap loader is discussed in Chapter Ten, which may be 
read independently of all other chapters. 



ACKNOWLEDGEMENTS 

The author is especially grateful to the Tandy Corporation for allowing the 
source code for TRSDOS to be reproduced in this book. 



4 Preface 



Contents 



Table of Contents 



Preface 3 

Chapter 1: 

Introduction 9 

Model I Hardware Overview 9 

Z80 Description 10 

I/O Operations 12 

Operating Systems Overview 13 

Types of Operating Systems 14 

Single User Systems 14 

Multi User Systems 15 

Real Time Operating Systems 16 

Operating System Characteristics 16 

Chapter 2: 

TRSDOS Overview 19 

File Management System 21 

Disk I/O Services 21 

TRSDOS Utilities 22 

System Commands 22 

Directory Data Structures 23 

Chapter 3: 

SYSO/SYS 27 

Loading the Nucleus 28 

System Initialization 29 

Command Line Processing 31 

Nucleus Functions 31 

Interrupt Processing 33 

Disk Interrupt Service Routine 37 



TRSDOS 2.3 Decoded 5 



Contents 



Clock Interrupt Service Routine 37 

Clock Maintenance Code 38 

Disk File Operations 39 

Disk Driver 45 

Disk Space Management 48 

File Loader 51 

Overlay Loader 53 

Trace Display 57 

Clock Display 59 

Keyboard Driver 60 

Chapter 4: 

SYS1/SYS 63 

Request Code 10, 20 and 30 66 

Request Code 40 77 

Request Code 50 78 

Request Code 60 80 

Chapter 5: 

SYS2/SYS 87 

Request Code 10 (OPEN) 88 

Request Code 20 (INIT) 99 

Request Code 30 (CREATE OVERFLOW ENTRY) 105 

Description of Subroutine at 5027 108 

Hash Code Computation 110 

Chapter 6: 

SYS3/SYS Ill 

CLOSE Processing 114 

KILL Processing 123 

Chapter 7: 

SYS4/SYS (Error Message Processing) 129 

SYS4 Processing 132 

Chapter 8: 

SYS5/SYS (DEBUG) 141 

DEBUG Entry Processing 142 

Display Formats 147 

'A,' 'H,' %' <S,' ';' and '-' Commands 152 

'D' Command 153 

'M' Command 154 

'R' Command 155 

'I,' 'C Commands (Single Step) 157 

'G' Command 159 

'U' Command 161 



6 Contents 



Contents 



Chapter 9: 

SYS6/SYS 163 

APPEND Command 165 

ATTRIB Command 167 

AUTO Command 173 

CLOCK Command 173 

COPY Command 174 

DATE Command 176 

DEVICE Command 178 

DIR Command 178 

DUMP Command 186 

FREE Command 191 

KILL Command 195 

LIB Command 195 

LIST Command 196 

LOAD Command 198 

PRINT Command 199 

PROT Command 200 

RENAME Command 203 

TIME Command 206 

VERIFY Command 206 

Chapter 10: 

BOOT/SYS 209 

BOOT/SYS Execution 211 

Appendix I: 

Data Structures 217 

Appendix II: 

Complete Systems 250 

SYS0/SYS 251 

SYS1/SYS 262 

SYS2/SYS 265 

SYS3/SYS 268 

SYS4/SYS 271 

SYS5/SYS 274 

SYS6/SYS 278 

BOOT/SYS 286 

List of Illustrations 287 

Index 290 



TRSDOS 2.3 Decoded 7 



notes 



What is an Operating System? 




1.0 Introduction 

What is an operating system? 

The answer to that question could fill volumes of books. This book is a partial 
answer to that question and a complete answer to how TRSDOS 2.3 works on the 
Radio Shack Model I computer. But, before plunging into TRSDOS, we need some 
background on the Model I system, and operating systems in general. 

1.1 Model I Hardware Overview 

The Model I is a Z80 based system. It comes in three configurations, the first 
being called LEVEL I. This configuration supports a keyboard, video, 1 cassette 
and memory. Memory is divided into 12K of ROM and 4K of RAM, IK of video 
RAM and some special reserved addresses. This is usually referred to as a 4K 
LEVEL 1 system. It can be expanded to 16K of RAM and then be referred to as 
16K LEVEL 1. The CPU, memory, and all control logic reside on a single board 
enclosed in the keyboard. 

The second configuration is called LEVEL II. It has 12K of ROM and either 4K 
or 16K of RAM. 

The third configuration is called LEVEL II with the expansion interface. The 
interface is used to connect peripheral units such as printers or disks to the Model 
I. It is a seperate enclosure containing a single board connected to the CPU by a 
40-pin flat ribbon cable. The expansion interface has a floppy disk controller (WD 
1771), which supports single density operations; disk addressing for four 5-1/4 
inch single-sided mini disk drives; a parallel printer interface; clock interrupt 
logic; a screen printer interface; 2 cassette ports and sockets for 32K of memory. An 
RS-232 communications board which uses a breadboard area and special internal 
connector is also available. Maximum memory available in this configuration is 
48K(plusl2KofROM). 

Standard options available from Radio Shack on all configurations are a 10-key 
numeric keypad and an upper/lower case option for the video. Independent 
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companies also manufacture options for the Model I system. 

Speed up kits for the clock are available from independent sources. Depending 
on the kit installed, program execution times may be decreased by 30 to 50 per 
cent, or more. Installation of a speed up kit requires software changes to the disk 
operating system, or a modification to the expansion interface to physically 
disable the clock mod during disk operations, and sometimes during other 
operations. 

Double-density kits are also available from Radio Shack or independent 
sources. These kits increase the amount of data that can be stored on a diskette 
from 89.9K bytes to 161. 2K bytes or more. Double-density kits require the use of 
a non-standard operating system if double-density diskettes are to be created or 
read. 

1.2 Z80 Description 

The heart of the Model I system is an 8-bit Z80 microprocessor with a logical 
address space of 64K bytes. It is instruction compatible with the 8080A, yet it 
offers more instructions (158 vs. 78) and numerous other features. The CPU comes 
in three versions with the following clock rates: Z80 (2.5 MHz); Z80A (4.0 MHz); 
Z80B (6.0 MHz). 

There are two sets of general purpose programmable registers. Each set consists 
of eight, 8-Bit registers. Either of the register sets may be selected under program 
control. In addition there are two, 16-Bit index registers; a single 16-Bit stack 
pointer register; and an 8-Bit interrupt vector bias. 

Bit, byte and word (16-Bit) operations are possible between registers, or 
registers and memory. Following is a diagram of the registers. 



Figure 1.1 Z-8U Register Sets 
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The Z80 uses a single stack pointer. It contains the address of the next available 
location on the stack. All stack operations use 2 bytes (16 Bits). Any instruction 
which saves data on the stack (e.g., PUSH, CALL, RST, . . .) causes the contents 
of the stack pointer to be decremented by 2 following the save operation. 

Instructions which remove data from the stack (e.g., POP, RET, . . .) cause the 
contents of the stack pointer to be incremented by 2 after the operation completes. 

Two types of interrupts are acknowledged by the Z80. Maskable interrupts can 
be suppressed by use of the Disable Interrupt (DI) instruction. Non-Maskable 
Interrupts (NMI) cannot be supressed and are always acknowledged at the end of 
the current instruction cycle. Both types force the address of the next instruction 
onto the stack via an RST instruction. 

In addition to the two general types of interrupts, the Z80 supports three modes 
of interrupts. Mode is 8080 compatible. The interrupting device places an 
instruction on the data bus (usually a Restart instruction) which causes an 
unconditional jump to one of eight predefined addresses. Mode 1 (used on Model 
I systems) unconditionally forces a Restart 0038 (RST 38H) instruction onto the 
data bus. Mode 2 allows the interrupting peripheral to provide the lower 8 bits of 
an address, which are merged with the contents of the interrupt bias register to 
form the effective address of the interrupt service routine. 

Maskable interrupts are controlled by a flip-flop labelled IFF1. A second flop 
labelled IFF2 is used to preserve and restore the status of IFF1 following an 
interrupt. The two flops are used as shown below. 



Figure 1.2 Interrupt Enable/Disable Flip Flops 
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1.3 I/O Operations 

I/O addressing in Model I systems is memory mapped except for the cassette 
and RS-232, which use port addressing. Video control addressing (characrer size), 
and cassette control logic are shared through port addressing on port FF hex All 
memory mapped addresses are listed below. 



Figure 1.3 Memory Map Addresses 



3801 - 38FF Keyboard Input Matrix 

3C00 - 3FFF Video Display Area 

37E1 - 37EF Disk Registers 

37E4 - Select Cassette Drive 

37E8 - Parallel Printer 

37E0 - Interrupt Status Register 



A description of the port address used on Model I systems is given below. 



Figure 1.4 Port Addresses 



PORT FF - Video and Cassette Control 

PORT EA - RS-232 (JART Status 

PORT EB - RS-232 Data Latch 

PORT E9 - RS-232 BAUD Rate Control 

PORT E8 - RS-232 Modem Status 



Physical I/O operations on the Model I are performed on a character basis. 
Direct Memory Access (DMA) is not used for any I/O operations. 

Device timing is supplied by loops in the drivers when necessary. The cassette 
drivers, for example, produce individual wave forms for each bit cell under 
software control. These waveforms are generated through OUT instruction, to 
port FF. Depending on the variable used in the OUT instruction, varying voltage 
levels are recorded on the cassette tape. Loops in the drivers control the duration 
of a particular signal level, resulting in the desired waveform. 

The disk drivers also contain instructions to coordinate the timing between the 
CPU and the disk controller. These instructions are necessary because the 
command and status register for the disk controller share the same addresss. After 
a command has been sent to the controller (by storing into a memory mapped 
location), the CPU must wait at least 50 microseconds before requesting a status 
(by reading from the same memory mapped location), otherwise the controller 
may respond to the status request before acknowledging the previous command. 
The status would replace the command, and the change in the state of the 
controller would cause the last command to be lost. 
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Timing during disk transfers is also important because the CPU must be ready 
to accept or deliver each character when the controller and the disk are able to 
accept or deliver the next character. For this reason, and because of the software 
timing loops in the cassette drives, I/O operations are performed with interrupts 
disabled. 

Memory mapped address and their drive addresses are shown below: 



Figure 1.5 Memory- mapped I/O Addresses 




1.4 Operating Systems Overview 

Basically, an operating system is a program used to control the behavior of a 
computer. A computer is never idle, that is, the CPU is always running. So if there 
is nothing for the computer to do, and it is always running, then the program that 
is running is looking for something to do. The program that is running when there 
is nothing else to do is called an operating system. Sometimes they are called 
monitors, or executives, but the meaning is the same. 

Operating systems do more than spin around in a loop waiting for the next 
command, but in the simplest sense that's almost all they need to do. As a bare 
minimum, an operating system must be able to: 

1. Wait for input. 

2. Compare the input to known commands. 

3. Perform the required command. 

We can equate the first step with the waiting for the next command loop 
mentioned earlier. The second step, comparing the input seems obvious, but it is 
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usually a distinctly separate section of code in an operating system. The third step 
would be represented as a series of subroutines for each of the commands 
supported. 

There are other parts to the operating system besides the three sections listed 
above, but all of them would be directly related to one of those three sections. For 
example, 'waiting for input' implies an I/O routine for reading the keyboard. 
Likewise, some of the command subroutines might need to display something on 
the video, or read a disk. So, they too, would need special subroutines which could 
be shared with other parts of the system. These special routines are called 
'support,' or 'ancillary,' routines. 

1.5 Types Of Operating Systems 

There are generally three types of operating systems: single user, multi-user and 
real time. Operating systems are also identified by their residency. The residency 
specifies where an operating system resides before it is loaded into the machine, 
and it usually implies something about its method of operation. Depending on the 
type of system, all or part of it may be loaded into memory initially. ROM systems 
are understood to be entirely and permenantly memory resident. LEVEL II is an 
example of a ROM operating system. 

The process of loading and initializing the operating system is called the IPL 
sequence (Initial Program Load). Booting the system is another phrase commonly 
used for this operation. Boot loaders, or IPL programs, can be entered manually 
through console switches, or they may be ROM resident. ROM resident IPL's are 
usually executed automatically when an IPL button is pressed. IPL routines 
entered via switches are usually small programs that read the remainder of the IPL 
program from disk. 

The amount of the operating system that is loaded initially will vary depending 
on the level of sophistication of the operating system. A simple disk resident 
system, for example, would be completely copied from disk to memory. The entire 
operating system would be memory resident. 

A more advanced disk system would load a small part of the system into memory 
leaving the rest on disk to be loaded and executed on demand. Typically, the disk 
resident parts would be loaded as overlays to the resident portion. The advantage 
of this type of system is that it minimizes the amount of memory dedicated to the 
operating system, leaving more space for user programs. 

There are other pieces of software, considered to be part of the operating system, 
which will not be discussed here because they do not co-reside with the operating 
system. Examples of this software are compilers, assemblers, loaders, sorts, 
advanced file access systems and utility programs, such as BACKUP, FORMAT, 
BASIC, etc They will not be discussed in any detail in this text unless they are 
directly related to the specific area of the operating system being discussed. 

1.5.1 Single User Systems 

Single user systems can support one user or terminal. This means that they can 
run one program at a time. The program running is either the operating system or 
a user's program. LEVEL II and TRSDOS are single user systems, as are most 
micro-computer operating systems. 
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1.5.2 Multi-User Systems 

Multi-user systems (also known as timesharing systems) can support more than 
one user or terminal at the same time. That means several people can use the 
computer simultaneously. This type of operating system has another step in it's 
basic loop which was not mentioned above. That step is called schedule the next 
event, or job. 

The normal procedure in a multi-user environment is to share the CPU between 
all of the users. Each user is allowed to use the CPU for a small period of time 
(usually measured in milliseconds). That period of time is called a time slice. The 
CPU is switched from one user to another at fixed intervals by the scheduler. 

A scheduler is a program that controls the execution of other programs. 
Schedulers run at fixed intervals; they are usually driven by interrupt processing 
managed elsewhere in the system. 

When a scheduler is run, the basic time period alloted for program execution is 
assumed to have expired. Other conditions can occur which cause the scheduler to 
be entered before a time slice has expired, but the effect is the same — the current 
user is to be suspended, and a new one will be selected for execution. 

The selection process will be based on two criteria: the first being eligibility, and 
the second being priority. 

Eligible jobs are those previously suspended because their time slice expired, or 
jobs waiting for a resource which has become available. 

Within the group of eligible jobs, some method of prioritization is used to select 
the next job. Priority computations vary radically from system to system,, but 
common ingredients used in most computations include: length of time the job has 
been descheduled, an externally assigned priority, resources consumed and 
resources required. 

The operating system is notified when a clock cycle expires through a 
mechanism called an interrupt. Interrupts cause the current program to be 
temporarily suspended so control can be passed to a service routine for the clock 
interrupt. Everything pertaining to the interrupted program is saved (on the 
system stack) so it can be restored when the interrupted program is restarted. 

The interrupt service routine usually begins by examining a status byte 
containing flags indicating the cause of the interrupt. Most computers can 
generate more than one kind of interrupt, so a status byte is used to identify the 
cause of the interrupt. An alternative method for identifying interrupt causes is to 
vector each interrupt through a unique address, but the method used on Model I 
systems is to vector all interrupts through location 0038 while setting a status bit 
indicating the interrupt cause in location 37E0. 

In the situation described earlier, in which a clock interrupt eventually leads to 
a scheduling change, processing proceeds as follows. The clock interrupt would be 
processed initially (also called 'fielded'), by a routine designed to respond to all 
interrupts. It would recognize the interrupt as having come from the clock and 
branch to the clock service routine. 
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In this example, the clock service routine would count the interrupt and test if 
the required fixed number had occurred. If not, the interrupted program would be 
restarted (called returning to the point of interrupt — all registers would be 
restored before returning). Otherwise, control would pass to the scheduler. 

The scheduler would begin by saving all register values (called the context) for 
the interrupted user. This is called suspending the current user. Next, it would 
scan a list of the suspended users and select one for execution. The register context 
for the next user to be scheduled would be loaded, and control of the CPU would 
be passed to the newly sheduled user. 

Notice that control did not return to the point of interrupt after a new user had 
been scheduled as it did when the clock service routine determined that a 
scheduling call was not necessary. The reason is that if rescheduling occurs, it is 
assumed the interrupted program is the program to be descheduled, and hence 
there is no point to returning to the point of interruption until it is rescheduled. 

Multi-user systems using sophisticated job schedulers are common on 
mini-computers and medium-to-large scale computers. They are usually called 
timesharing, or interactive, systems. Most micro-computer systems do not 
support multi-user operating systems. 

1.5.3 Real Time Operating Systems 

Real time systems are a form of multi-user systems. They are generally used in 
situations where a computer must control a number of external events (called 
processes) without any human intervention. Because there is usually more than 
one process to control, and some processes are more critical than others, a time 
slice system like that used in multi-user systems would not be appropriate. 
Furthermore, some processes are used to control others. Thus, one program must 
be able to schedule another. In a refinery, for example, some processes would be 
controlled by temperature, some by pressure and some by the completion of other 
process. 

Programs which must run to control particular processes are usually sheduled 
by a master control program. The master control program is a user-written 
program which uses the operating system service routines to schedule and 
deschedule those processes as needed. 

1.6 Operating System Characteristics 

Operating systems may be entirely memory resident (sometimes called core 
resident), or partially in memory with select portions being loaded from disk when 
needed (called disk resident). ROM systems, for example, are nearly always core 
resident (all of the system is always resident in memory), while disk systems are 
usually partially memory resident, with the bulk of the system being disk resident. 
There are exceptions to both of these examples. The residency of a system is 
independent of its type. A real time system could be core, or disk, resident. Ditto 
for the single and multi-user systems. 

The name of an operating system is usually derived from its residency or 
function. Sometimes they are combined; for example, a system will be identified as 
a core resident real time system. 
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Operating systems are also known by their specific characteristics, such as 
paging, mapping, and virtual memory. These particular ones are usually found on 
multi-user systems. They provide a means of using more physical memory than 
can be addressed through the 16-bit addresses commonly used on mini and 
micro-computers. Software features such as these usually require additional 
hardware to support them. 

Other software features associated with operating systems that do not require 
hardware would be swapping, file overflow, and file and record management 
facilities. Features which can be implemented with or without extra hardwre are 
multi-mainframe, and shared-file access. 

Another significant area of operating system software is computer 
communications. There are two types of computer commuunications. The first is 
terminal to computer communications. Terminals are input devices connected to 
the computer (usuall called a host system) by telephone lines or through a direct 
connection using a current loop or RS-232 hook up. Other types of connections are 
also used. The terminal can be anything from a CRT and keyboard, such as those 
used on time sharing systems, to a remote job entry (RJE) station consisting of a 
card reader, operators console and line printer. 

The second type of communication involves computer to computer 
communication. This type of communication is usually distinguished from the 
first type for several reasons. First, the rate of transmission is usually much higher. 
Terminal or RJE communications rarely involve transmission rates higher than 
9600 BAUD (bits per second), with the usual range somewhere between 300 and 
9600 BAUD. 

Second, the physical method used for the transmission of data between 
computers is normally different from that used for the lower-speed 
communication. 

In low-speed communications, each character is preceded by a start bit signal, 
and followed by a stop bit signal. These signal bits serve as timing marks for the 
transmission equiptment. In high-speed communications, data is transmitted as a 
block of characters with a synchronizing clock pulse. 

A third significant difference in the manner in which the data is transmitted on 
low-speed systems is that transmission is on a character-by-character basis. 
High-speed systems transmit data in blocks containing many characters. 
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2.0 TRSDOS Overview 

Model I systems with disks have two operating systems. The first is a 
core-resident, single-user system called LEVEL II. 

LEVEL II is a ROM-based system occupying the first 12K of memory (locations 
0000 - 2FFF hex.). It uses RAM from 4000 - 4200 as a scratch pad area. 

Primarily, LEVEL II is a BASIC interpreter with a few built-in system 
commands, such as an editor and a cassette dump and load utility. Embedded in 
Level II are drivers for a parallel printer, the keyboard, the video display and the 
tape cassette. It also contains system initialization code which is executed when 
the system is initially turned on or restarted. 

LEVEL II is entered automatically at address 0000 when POWER ON is 
activated, or at address 0066 when RESET is activated. Both entry points branch 
to a system initialization sequence which determines if a disk controller is present. 
If there is no disk controller, the LEVEL II system is initialized and the BASIC 
interpreter is entered. If a disk controller is detected, a bootstrap program is read 
from the disk and executed. This bootstrap will load and initialize the disk 
operating system called TRSDOS. 

The second operating system used on Model I systems is TRSDOS. 

TRSDOS is a single-user, disk-resident operating system. It is composed of a 
core-resident nucleus and disk-resident system overlays and utilities. The 
minimum configuration required for TRSDOS is 32K bytes of memory, and one 
disk drive which must be addressable as drive zero. In order to properly run, 
TRSDOS requires a system diskette to be mounted in drive zero at all times. 
TRSDOS supports any memory size from 32K to 48K bytes of memory and up to 
four, 35-track, single-sided, single-density, 5-1/4 floppy disk drives. 

As stated earlier, TRSDOS is loaded by a bootstrap program which is read from 
disk by LEVEL II. The portion of TRSDOS initially loaded is called the nucleus. 
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The nucleus occupies memory from 4200 - 4E00. Portions of it are also loaded 
into the 4000 - 4200 region, and the system initialization code is loaded at 4E00. 
The code loaded into the 4000 - 4200 region consists of jump vectors used for 
calling various nucleus functions, data structures and storage areas used by the 
nucleus and the remainder of the system. The system initialization code loaded at 
4E00 is executed immediately after the system has been loaded. 

The bulk of TRSDOS resides on the system disk. The disk resident portion 
consists of overlay modules and system utility programs. 

Overlay modules are loaded on a demand basis by the nucleus. They contain 
code for system functions which need not be permanently core-resident. Examples 
of these functions are: the command line processor; OPEN and CLOSE routines 
plus select system commands, such as DEBUG, TRACE and BASIC 2. 

The overlay area begins at the end of the nucleus (4E00) and ends at the start of the 
utility load area (5200). Only one overlay is loaded at a time. Overlays could be 
constructed which call secondary overlays; however, this is not a standard practice 
in TRSDOS. 

System utility programs such as BACKUP and FORMAT are loaded at address 
5200. SYS6, which is technically an overlay module, is also loaded at 5200. It 
contains code for the DOS commands AUTO, KILL, DATE and TIME, to name 
a few. Utility programs may make nucleus calls which result in an overlay being 
loaded; thus, they must reside in separate areas of memory. 

The system utility programs and overlays exist as files on the system diskette. 
Since they are assigned the invisible attributes, "SEE TRSDOS MANUAL," 
they are not displayed when the DIR command is used unless the T (invisible) 
parameter is specified. 

Overlay files have a SYS suffix, while utility program files have a CMD suffix. 
The exception is SYS6/SYS, which is loaded into the utility area. 

SYS6 is also the only module in the system with multiple entry points. The 
editor/assembler and loader used by TRSDOS do not support relocatable code, 
multiple entry points or symbolic external references. SYS6 does not have 
multiple entry points in the traditional sense of the word, but it achieves the same 
effect by being called with a command index value, which specifies which of its 
nineteen commands is to be executed. 

A command index is passed to SYS6 in the C register by the program that 
requested it to be loaded. In the usual case, the command line interpreter 
(SYS1/SYS) is the caller. 

Utility programs fetch their parameters from the command line used to call the 
utility. Upon entry, the HL register points to the first character after the command 
specification in the command line buffer. 

TRSDOS is not an interrupt driven system; however, it does support interrupts. A 
clock interrupt is generated every 25 milliseconds on systems with an expansion 
interface. This interrupt, plus any spurious interrupts, are fielded by a general 
purpose service routine in TRSDOS. 
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Upon detection of a clock interrupt, the clock interrupt processor is entered. 
This processor executes sub-tasks indicated by an interrupt task list. Initially, the 
task list is empty. System commands for the CLOCK and TRACE functions 
require use of two of twelve entries in this list. 

The remainder of the entries in the list are unused. Subroutines in the nucleus 
are defined, which will add or delete entries to this list. This means some sort of 
scheduling or multi-tasking function could easily be added as an application 
program. 

The nucleus contains other useful subroutines which can be called from users 
programs. They will not be detailed here, but a complete list of nucleus entry 
points can be found in Section 3.4.14. 

The major features of TRSDOS are its file management system, the disk space 
manager, the file loader, the overlay loader, interrupt service routines and the 
various command processors. Each of those features is discussed in detail in 
subsequent sections. The following descriptions of some of these features is very 
general and is intended to acquaint the reader with the external characteristics of 
these features. 

2.1 File Management System 

The file management system provides a mechanism for accessing files by name. 
Each diskette has a directory on track 17 (dec.) which is used to keep a record of 
file names, their disk addresses and passwords. Whenever a file is referenced, the 
directory is searched until the named file is located or all directory entries have 
been examined. Specific commands related to the file management system are: 

ATTRIB - assign file attributes 

DIR - list directory contents 

KILL - delete a file from the directory 

FREE - return amount of available disk space 

PROT - assign diskette password to all files 

RENAME - change file name 

2.2 Disk I/O Services 

Disk services in TRSDOS support the file management system. They create and 
delete directory entries, allocate disk space, translate relative record numbers into 
absolute track and sector addresses, rewind files, position files to specified records, 
test for end of file conditions, and call the disk driver to perform data transfers. 
The disk management system does not support: file overflow from one device to 
another, any sector size other than 256 (dec.) bytes, or the ability to bypass 
irrecoverable errors. 

Embedded in the disk services is an elementary record manager. It provides 
record movement between the user and system data areas, as well as packing and 
unpacking services. 

Two record types are supported. They are: fixed-length physical records (always 
one sector), and logical records. Logical records can vary in size from 1 to 255 bytes 
in length. All logical records in a file must be the same length except for DISK 
BASIC files. DISK BASIC supports variable length logical records because it has 

TRSDOS 2.3 Decoded 21 



System Commands 



its own record management routines. 

Disk space is allocated on an as-needed basis in units called granules where 1 
granule equals 5 consecutive sectors. A permanent record of the assigned and 
available granules is maintained in a special sector of the disk directory. Each file 
entry in the directory has a list of assigned granules. When a file is purged 
(KILL'ed in TRSDOS nomenclature), the granules assigned to the file are 
returned to the list of available granules. 

2.3 TRSDOS Utilities 

Utilities are special purpose programs, supplied with an operating system, 
which are not an integral part of the operating system. They are seperate binary 
modules, loaded into an area of memory not used by the system. Utility programs 
on TRSDOS include the following: 

BACKUP - disketted copy program 

FORMAT - formats diskettes 

BASIC - DISK BASIC extension for LEVEL II 

DISKDUMP - disk sector dump program 

TAPEDISK - copies cassette to disk 

BASIC and DISKDUMP do not conform to the definition of a utility as given 
above, but they are utility type programs. BASIC is a assembly language program 
which is an extension to LEVEL II BASIC. After being loaded, BASIC modifies 
pointers in the 4000 - 4200 region to indicate that DISK BASIC has been loaded 
before transferring control to LEVEL II BASIC. If an exit from LEVEL II to 
TRSDOS is taken, and another utility such as BACKUP is loaded, the BASIC 
utility loaded earlier would be destroyed. 

DISKDUMP, is a utility program written in DISK BASIC. The BASIC utility 
program would need to be run before this utility could be run. 

2.4 System Commands 

System commands are similar to utility programs. The difference is that they 
are recognized and acted upon directly by the system nucleus. The code for system 
commands is always resident in the system (either in the nucleus or in one of the 
overlay modules on disk). TRSDOS system commands include the following (plus 
all of the file management commands): 

AUTO - define startup procedure 

CLOCK - display current time 

COPY - file copy request 

DATE - enter date 

DEVICE - list device assignments 

LIB - list all system commands 

LOAD - load object file 

LIST - list text file on video 

PRINT - print text file on video 

TIME - enter time for CLOCK display 

TRACE - display P register 

VERIFY - force verify on all writes 
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2.5 Directory Data Structures 

TRSDOS recognizes two types of diskettes — system diskettes and data 
diskettes. System diskettes have a boot loader on track 0, sector 0, plus a directory 
entry for the nucleus file (SYSO/SYS). Data diskettes have a boot loader on track 
0, sector 0, but lack the nucleus file. Both diskettes have the same directory 
structure. The directory occuppies one track (17 dec). It has two overhead sectors, 
leaving eight sectors for file entrys. Each directory sector can hold up to 8 file 
entries. 

The overhead sectors are the HIT (Hash Index Table, sector 1), and the GAT 
(Granule Allocation Table, sector 0). The HIT contains a hash code for every file on a 
diskette. When a reference is made to a file, its hash code is computed and matched 
against those in the HIT. The position of the matching hash code in the HIT gives the 
starting sector number for searching the directory. This speeds the process for 
locating a file considerably, since the directory is not searched unless the file exists, 
and the search begins at an advanced point in the directory. 

Hash codes are computed according to the following code: 



Figure 2.1 Hash Code Computation 
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The format of the HIT is shown below: 



Figure 2.2 Hit Sector Description, Track 1 1 Sectorl 
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The second overhead sector in the directory is the GAT. This sector contains a 
bit map indicating which areas of the disk are available, the creation date, a master 
diskette password, and an optional command to be executed at system start up 
(AUTO feature). A description of the GAT sector is given below. 



Figure 2.3 GAT Sector Description, Track 11, Sector 
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Sectors two through nine contain the file entrys. Each sector contains eight 
32-byte entries. There are two types of directory entries: primary and overflow. 
The majority of directory entries are primary entries. These contain the file name, 
passwords, file attributes, and granule allocation pairs. 

Overflow entries are created when there are more granule alloction pairs 
assigned to a file than will fit in the primary directory entry. 

The first two entries in every directory sector (2 to 9) are reserved for system use. 
Thus, the maximum number of user files which can be saved on a diskette is 48. 

48 = Number of directory sectors (8) x number of 
entries available in each sector (6). 

The format of the directory sectors is given below: 



Figure 2.4 Directory Sector/File Entry Description 
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3.0 SYSO/SYS 

TRSDOS is a disk resident, overlaid system. A small part of it (called the 
nucleus), is core resident, while the remainder resides on disk. The nucleus 
contains: an overlay loader, disk I/O services, the disk driver, TRACE and TIME 
displays, the interrupt service routine, all core resident data structures, 2 sector 
buffers and system initialization code. 

All system command processors and utility programs are disk resident. The 
command processors are loaded as overlays above the nucleus (but below the 
utility load area). Utilities are loaded at 5200, which is considered the first 
available area of memory for user programs. 



Figure 3.1 Nucleus Description 
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All system modules, including the nucleus and the overlays, exist on the disk as 
named files. The nucleus is named SYSO/SYS; The command overlays are named 

SYS1/SYS,. . . SYS6/SYS. 

3.1 Loading the Nucleus 

When the system is brought up or RESET is activated, control passes to LEVEL 
II. LEVEL II immediately determines if the system has disks. If it does, a special 
program called a boot loader is read from disk. The boot loader is used to load the 
nucleus for the disk operating system. Following is the code used by LEVEL II to 
load the boot loader: 



Figure 3.2 Code From 0696 to 06C9 in LEVEL II 
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There are several aspects of the boot program that make it unique. Like the rest 
of the system programs, it exists as a named file. But because the space in LEVEL 
II used for reading the boot is restriced, it is assumed to exist at track 0, sector 0. 
Furthermore, it is an absolute core image program, one sector long. Thus it can be 
read directly into memory and executed. 

The boot is the only core image program in TRSDOS. Binary modules produced 
by the editor assembler have embedded control codes indicating the load address, 
length of string to be loaded and a execution address. The core image of the boot 
was created by writing a section of memory containing the boot to disk 

Control is passed to the boot after it has been read into locations 4200 - 42FF. 
Notice that this is one of the sector buffer address for the nucleus, so there is no 
conflict between the addresses for the boot and those of the nucleus. The boot then 
finds the disk address of SYSO/SYS (the nucleus), and loads it into memory. Since 
SYSO/SYS is not a core image program, the boot must be able to interpret the 
loader codes, and it must contain its own disk I/O routines, as well as a sector 
buffer. The sector buffer address is 4D00 - 4DFF; again there is no conflict with 
code in the nucleus because it has a sector buffer at the same address. 

The boot has a limited facility for interpreting the granule allocation pairs in the dir- 
ectory describing the disk addresses for the nucleus. Therefore, it cannot have more 
than one granule allocation pair. For a detailed description of the boot loader, see 
Section 10. 

3.2 System Initialization 

System initialization is performed immediately after the nucleus has been 
loaded. Operations performed during this stage consist of the following: 
initializing the 4300 region, setting up the system stack pointer, determining 
memory size, initializing the device driver tables, and executing any procedure file 
created with the AUTO command. 

Since this code is executed only once, the space it occupies can be used for other 
purposes after the initialization process has completed. In this case, the code 
begins at 4E00, which is also the start of the nucleus overlay area. Because this 
code resides in the overlay area, it would be impossible to execute a nucleus overlay 
as part of the stytem start up initialization. 

Beginning at 4E00, interrupts are disabled, and interrupt mode 1 is selected. 
Selection of interrupt mode 1 means that when interrupts are enabled, all 
interrupts will be vectored through location 0038. 

Next, the utility load address is initialized to 5200, and the memory size is 
computed by the loop at 4E0F - 4E IB. When the highest RAM adddress is found, 
it is saved in 4049. 

The code from 4E20 - 4E55 initializes the device address table (43B8 - 
43BF) and the device mnemonic table (43C0 - 43CC). These tables are used by 
the DEVICE command to report the device configuration and the driver addresses 
for all devices listed in the table. 
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Starting at 4E20, the address of the replacement keyboard driver (43D8 - 
43FB) replaces the address of the ROM driver in the keyboard DCB, as well as 
being stored in both device tables. Next, the keyboard RAM buffer address is 
saved in the device driver table. 

Continuing at 4E2F, the video driver address and the video RAM buffer are 
both copied to the device tables. Next, the printer driver address and its buffer 
address are copied to the device tables. Finally, the list of driver and buffer 
addresses is terminated with a zero byte. 

Beginning at 4E57, the keyboard DCB is copied to 4358 - 435F, then a loop 
is executed which zeros the 8 bytes after the DCB. A second loop starting at 4E6A 
stores 16 FF's after the 8 bytes of zeros. The reason for this initialization is not 
known. 

There is some unused code in the section just described. The INC, JR, and LD 
instructions at 4E52 - 4E55, as well as the PUSH at 4E52 and the POP, DEC, 
and JR at 4E72 - 4E75 serve no useful purpose. For that matter, neither does the 
LD instruction which begins the next section to be described. 

Starting at 4E79, 4015 (the first byte of the keyboard DCB) is set to zero, and 
the interrupt mask control byte is zeroed. Zeroing the interrupt mask byte will 
cause any interrupts which might slip in (very unlikely since interrupts are 
inhibited) to be discarded. 

Continuing at 4E81, a JP 4518 instruction is synthesized and stored into 4012. 
This replaces a DI/RET sequence placed there by the LEVEL II ROM code prior 
to the loading of the nucleus. This causes control to pass to 4518 when an 
interrupt is recieved. 

Next, the address of the clock interrupt routine (4560), and the disk interrupt 
routine 45F7 are stored in the interrupt scan list at 405B and 4059, 
respectively. 

Following that, the interrupt mask control byte at 404C is updated to indicate 
interrupt routines exist for both clock and disk interrupts. 

At 4E9F, the DEBUG control byte is initialized to a positive value (DEBUG not 
active), and 45 AF (address of the clock maintenance code) is stored in the 
interrupt task list by calling a system service routine at 4410. The maintenance 
routine will be executed evey 200 milliseconds under the control of the interrupt 
processor. It updates the binary clock values maintained in 4041 - 4043; 
however, the clock value will only be displayed if the CLOCK ON command is 
executed. 

Upon return, the message 'TRSDOS 2.3 .. . .' is displayed by the loop from 
4E AF - 4EB8. This code is followed by a call to scan the keyboard. If the carriage 
return key is active, the AUTO procedure test is skipped, and control passes 
immediately to 4400, where a call to load and execute SYS1 is performed. 

If the carriage return key is not active, the code at 4EC2 - 4ECB is executed to 
read sector 1 of track 11 into the buffer at 4200. If an error occurs during the 
read , control goes to 4409, where SYS4 is called to display an error message 
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Assuming no read error, the buffer is examined to determine if an AUTO 
procedure has been defined. A carriage return at 42E0 (the EO'th byte of the 
sector) means no AUTO procedure file exists. In this case also, control passes to 
4400, which causes SYS1 (the command line processor) to be loaded and 
executed. 

If 42E0 does not contain a carriage return, it is assumed to hold a 20-character 
command to be executed. This command is copied to the commmand line buffer 
by the code at 4ED9 - 4EE2, displayed on the video, and then SYS1 is called to 
process the command. 

When the initialization code completes, it exits by jumping to 4400 or 4405 to 
load and execute SYSl. At that time, SYS1 will either wait for the next command 
or process the one in the command line buffer. 

3.3 Command Line Processing 

At the end of system initialization, the command line intrepreter overlay 
(SYS1/SYS) is loaded. This overlay displays the message: 

DOS READY 

then posts a read (waits for next input) against the keyboard waiting for the first 
command. When a command is entered (carriage return struck) SYS1/SYS 
compares the command against a list of system commands. If a match is found, the 
overlay for the command is loaded and executed. When the command overlay 
completes, SYSl/SYS is reloaded to read and process the next command. 

If a command line does not match one of the system commands, it could be the 
name of a utility program, such as BACKUP, FORMAT, or a user-written 
assembly language program. SYSl determines if this is the case by searching the 
directory for a file name matching the command line. If one is found, the file is 
loaded and control is passed to the transfer address. When processing completes, 
the utility (or user program) must return to 402D so that SYSl can be reloaded. 

If no match is found between the command and the file names in the directory, 
the message: 

PROGRAM NOT FOUND 

is displayed, and another keyboard read is posted. 

System overlays also contain 'subroutines,' which may be invoked indirectly 
through system calls to OPEN, CLOSE, or KILL, to name a few. When one of these 
calls is made (from a utility or user program to one of the fixed addresses in the 
nucleus), SYSO loads the appropriate overlay and transfers control to it. Since the 
overlays are considered an extension to SYSO, they know of (and make use of) 
many subroutines in the nucleus. Thus, SYSO and the overlays can be thought of 
as one program. For a detailed description of SYSl/SYS see Section 4.0. 

3.4 Nucleus Functions 

The nucleus is the core resident portion of TRSDOS. It contains code for the 
following functions: interrupt processing, disk services, a file loader, trace display, 
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clock display and the keyboard driver. In addition, data structures used 
throughout the system are maintained in the nucleus. Those structures are: a jump 
table for nucleus funtions, the command line buffer, a disk track history table and 
interrupt processor addresses. The memory map below lists the major entry points 
in the nucleus. 



Figure 3.3 Nucleus Entry Points 
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44 B4 - 




4500- 








4D00- 




4E00- 
51FF- 





SECTOR BUFFER 



TRACK HISTORY TABLE 
DIRECTORY TRACK LIST 
LAST DRIVE SELECTED 
UNIT MASK FOR LAST DRIVE SELECTED 
DCB ADDRESS 
SECTOR BUFFER ADDRESS 
PREVIOUS OVERLAY REQUEST CODE 
SYSTEM CONDITION FLAQS 
'RESERVED 
USER RETURN VECTOR WITH ZERO STATUS/JP 5BA4 IF DISK BASIC LOADED 
DEBUG VECTOR 
COMMAND LINE BUFFER 
DEVICE LIST 
KEYBOARD DRIVER 

OVERLAY CALL SYS1 /SYS. REQUEST CODE 1 
OVERLAY CALL SYS1 /SYS REQUEST CODE 3 

OVERLAY CALL VECTOR FOR SYS4/SYS 
OVERLAY CALL VECTOR FOR SYS5/SYS 
ADDADDRESTO INTERRUPT TASK LIST 
REMOVE ADDRESS FROM INTERRUPT TASK LIST 



INIT VECTOR 

OPEN VECTOR 
CLOSE VECTOR 

KILL VECTOR 

LOAD FILE VECTOR 

LOAD FILE IN SYSTEM DCB VECTOR 

READ VECTOR 

WRITE VECTOR 

VERIFY VECTOR 

REWIND VECTOR 

POSITION VECTOR 

BACKSPACE VECTOR 

SKIP TO END OF FILE VECTOR 



SEND MESSAGE TO VIDEO 

SEND MESSAGE TO PRINTER 

DISPLAY CLOCK ON VIDEO 

DISPLAY DATE ON VIDEO 

OVERLAY CALL VECTOR FOR SYSI/SYS. REQUEST CODE 5 

OVERLAY CALL VECTOR FOR SYS1/SYS. REQUEST CODE 6 



SYSTEM DCB (LONG) 

SYSTEM DCB (SHORT) 
OVERLAY CALL FOR SYS4/SYS 
OVERLAY CALL FOR SYS5/SYS 

INTERRUPT TASK LIST 



SYSTEM CODE 



SECTOR BUFFER 



OVERLAY AREA 
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3.4.1 Interrupt Processing 

Interrupts notify the computer that an external event has taken place. This 
causes the current sequence of instructions to be suspended so that control may be 
passed to a routine which can process the interrupt. Usually, this action is the 
completion of an I/O request, or the passage of a fixed interval of time. The former 
are called I/O interrupts, while the latter are referred to as clock interrupts. 

There are two types of interrupts: maskable and non-maskable. Maskable 
interrupts can be suppressed through the use of the disable interrupt instruction. 
In order for maskable interrupts to be acknowledged, the CPU must be enabled to 
accept interrupts. 

Maskable interrupts, on a Model I system cannot be stacked. For example, if the 
CPU is disabled for interrupt processing and five clock interrupts occur, only the 
first will be remembered. When interrupts are re-enabled, one clock interrupt will 
be generated rather than five; the others would be lost. 

Non-maskable interrupts cannot be suppressed. Regardless of the state of the 
interrupt flip-flop, they will be recognized. Non-maskable interrupts on the Model 
I system are generated when the POWER ON or RESET buttons are activated. 

When an interrupt is acknowledged, three things happen. First, the P register is 
saved on the stack. This is done automatically when the interrupt cycle is started. 
The P register is saved so that after interrupt processing has completed, control 
can be returned to the point where the interrupt occurred. 

Second, a new address is substituted for the current P register. The address will 
vary depending on the type of interrupt being acknowledged (maskable, or 
non-maskable) and the interrupt mode selected (the Z-80 supports three modes, 
see Section 1.2). These addresses are usually called interrupt vector addresses. On 
Model I systems, maskable interrupts force the P register to 0038. 

Third, if the interrupt is maskable, a bit is set in location 37E0, indicating the 
exact cause of the interrupts. The format of the interrupt status byte is shown 
below: 



Figure 3.4 Interrupt Status Byte 



J 1 1 I I l_L 

Clock Interrupt 

Disk Interrupt 




Non-maskable interrupts generate a vector address of 0000 or 0066 for a 
POWER ON or RESET condition, respectively. Maskable interrupts cause an 
RST 38 instruction to be executed. In all cases the vector addresses are defined in 
LEVEL II ROM. A list of interrupt addresses follows: 
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Figure 3.5 Interrupt Vectors 



ACTION 



VECTOR ADDRESS 



PROCESSING 



POWER ON 
RESET 

CLOCK/DISK 



0000 
0066 

0038 



Initial system start 

up. 

System start up for 

disk systems. System 

restart for ROM based 

systems. 

See below. 



The code executed instantaneously in reaction to an interrupt is called the 
interrupt processor. The interrupt processor determines the exact cause for the 
interrupt and passes control to an interrupt service routine designed for each 
specific condition. The service routines may call other routines that need to be 
executed on a per iodic or exception basis. In a time-sharing operating system, for 
example, the clock service routine might call the job scheduler every tenth time, 
rather than on every clock interrupt. 



Figure 3.6 Interrupt Vectors 



NO INTERFACE 



INTERFACE PRESENT 



DI 
RET 



JP 4518 



Maskable interrupts on the Model I are generated by either the clock or disk. 
Disk interrupts are not used, that is, they are not explicity requested by the system 
except in a few special cases to clear the controller. Therefore, there is no special 
handling for disk interrupts; they are acknowledged and control is returned to the 
point of interrupt. 
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Clock interrupts are generated automatically every 25 milliseconds. TRSDOS 
uses these interrupts to drive internal functions, such as maintaining a time of day 
clock and displaying the P register for the TRACE command. 

Interrupt processing takes place on two levels. The first level accecpts the 
interrupt, saves the current register context, determines the exact cause of the 
interrupt and passes control to the second level. 

The second level consists of routines designed to process a specific type of 
interrupt. TRSDOS has second level routines for clock and disk interrupts. 

Second level routines may call a third level, which in turn could call a fourth 
level, and so on. The disk interrupt routine, for example, does not call any other 
levels, but the clock interrupt calls a third level which will eventually call a fourth 
level. See Sections 3.4.2 and 3.4.3 for a description of the second level disk and 
clock processing routines. The remainder of this section discusses first level 
processing. 

The interrupt processor for maskable interrupts begins at location 4518. When 
entered, the return address has been pushed onto the stack, and interrupts are 
disabled. It begins by saving the HL and AF registers on the stack, and the 
interrupt status byte (37E0) in 404B. The status must be saved because reading 
it forces it to zero. 

Next, the status is compared to the interrupt mask at 404C on a bit-by-bit 
basis. This mask indicates which interrupts can be serviced by having a 'one' in the 
position corresponding to the interrupt status bit. The initial value for this byte is 
CO, which indicates clock and disk interrupts are supported. If there is no match 
between the status byte and the interrupt mask, the interrupt is discarded and 
control returned to the point of interrupt. Before returning, the BREAK key is 
tested, if it is inactive the registers are restored, interrupts are enabled, and control 
returns to the point of interrupt. 

When an active BREAK key is found, a test is made to determine if the DEBUG 
utility has been called. If it has, DEBUG is loaded and executed. This test is 
accomplished by examining the contents of 4015 ( if it is zero, DEBUG has not 
been called; otherwise, it has). If the DEBUG flag is non-zero, interrupts are 
enabled, and control is passed to the address contained in locations 43 16 - 43 17. 
This is usually the address of a location in the nucleus that makes a loader request 
for DEBUG. This is how DEBUG gets loaded when BREAK is pressed and 
DEBUG is not already memory resident. 

Note that the context saved when the interrupt processer was entered is restored 
before DEBUG is entered; however, the interrupt return address is left on the 
stack. This means that control can be returned to the point of interrupt. This is a 
significant debugging feature, since it means an executing program can be 
interrupted and restarted at the point of interrupt. On the other hand, if DEBUG 
were entered capriciously with control being returned to 402D, the system stack 
will grow because of the context pushes and eventually overwrite critical areas of 
low memory. 
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If a match is found between the interrupt status and any of the bits in the mask 
byte, then a system subroutine to service the interrupt does exist. The interrupt 
processor then determines the exact cause of the interrupt and passes control to its 
service routine. When the service routine completes, control is returned to the 
interrupt processor so the rest of the bits in the status byte can be tested (it is 
possible for several interrupts to occur simultaneously). A list of the addresses of 
the service routines is kept in loacations 404D - 405C. 

This is done by testing the status word on a bit-by-bit basis starting with Bit 
(the low order bit) and working towards Bit 7. Prior to starting the bit testing, the 
HL register set is initialized to 404 D. This is the start of a list of addresses of 
routines used to process the individual interrupts. As each bit is tested and found 
to be false (zero) , the address in HL is bumped to the next location. When an active 
bit is found, the registers are saved, 4547 is pushed onto the stack as a return 
address, and control is passed to the address pointed to by the HL register. 
Locations 404D - 405C are initialized as shown below. 



Figure 3.7 Interrupt Task List Addresses 
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When the service routine completes, control returns to 4547, where all registers 
are restored. If more bits in the status byte are on, they are tested and the 
appropriate processor is executed. After all status bits have been tested, control is 
returned to the point of interrupt with interrupts enabled. 

3.4.2 Disk Interrupt Service Routine 

This routine is entered by the interrupt processor whenever a disk interrupt 
occurs. The code is brief, it consists of the following instructions: 



Figure 3.8 Entry Routine 

ADDRESS 

45F7 
45FA 



INSTRUCTION 

LD A, (373CH) 
RET 



COMMENT 

get controller status 
return to interrupt 
processor 



3.4.3 Clock Interrupt Service Routine 

This routine is entered from the interrupt processor whenever a clock interrupt 
is recieved. It is used to control the execution of routines which must be executed 
at fixed intervals. For example, the clock maintenance code at 45AF must be run 
at least once a second in order to keep accurate time. Actually, it's run once every 
200 milliseconds, but more about that later. Other routines which must run on a 
fixed basis, if active are the TIME and TRACE subroutines. 

The clock interrupt processor is entered every 25 milliseconds. It has a list of the 
addresses of the subroutines to be executed on a periodic basis. These subroutines 
are executed every time the clock interrupt processor is entered (once every 25 
milliseconds), or once every 200 milliseconds. The rate at which the subroutines 
are called by the clock processor is controlled by their position in the address list. 
That list has the following format: 



Figure 3.9 Address List for Clock Interrupts 

ADDRESS CONTENTS CONTENTS CONTENTS/DESCRIPTION 



4500 
4502 
4504 
4506 
4508 
450A 
450C 
450E 
4510 
4512 

4514 
4516 



4 5 A3 


45A2 


4 5 A3 


45A2 


4 5 A3 


45A2 


4 5 A3 


45A2 


4 5 A3 


45A2 


4 5 A3 


45A2 


4 5 A3 


45A2 


45AF 


45B2 


4 5 A3 


45A2 


4 5 A3 


45A2 


4 5 A3 


45A2 


4 5 A3 


45A2 



RET/not implemented 
RET/not implemented 
RET/not implemented 
RET/not implemented 
RET/not implemented 
RET/not implemented 
RET/not implemented 

CLOCK MAINTENANCE 
RET/not implemented 
RET/TIME display if active 

RET/not implemented 
RET/TRACE display if active 
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The list contains two levels of indirection. 4500 points to 45 A3, which contains 
the address of the first instruction of a subroutine. The list may be divided into two 
parts. The first part, 4500 - 450E, contains the addresses of routines that are 
executed once every 8 clock interrupts (or 200 milliseconds). Every time a clock 
interrupt occurs, one of the routines in this part of the list is executed. A counter 
in location 4040 is used to control the selection of the routine to be executed. It 
is incremented each time the clock interrupt processor is entered. The low order 
three bits of the counter (times two), are used as an index into the list for selecting 
the routine to be executed on any interrupt. 

The second part of the list, 4510 - 4516, contains the addresses of routines to 
be executed on every interrupt. They are executed unconditionally. Normally, 
these entries point to 45 A3, but if a TIME or TRACE command has been 
executed, their entries are modified to point to the appropriate subroutines. 
Addresses in the list starting at 4500 may be changed by two system subroutines 
described in section 3.4.10. 

The code for the clock interrupt processor starts at 4560. It begins by executing 
the subroutine pointed to (indirectly) by 45 10. This is accomplished by calling an 
in-line subroutine at 457B. An index into the list at 4500 is passed as a parameter 
in the A register. The parameter is one half of the index to be used, since it will be 
multiplied by 2. 

The subroutine at 457B begins by multiplying the parameter by 2 and 
combining it with 4500 to form the address into the first list. This address is then 
saved at 45A6 for possible modification by another subroutine called through 
4416. Next, the content of the address formed is loaded into the DE register and 
then transferred to the IX register. Following that, the content of the formed 
address is loaded into the DE register (this is the second level of indirection), then 
moved to the HL register where control is passed to that address by an indirect 
jump through the HL register. 

When the subroutine entered by the indirect jump completes, it returns to the 
caller of 457B through a RET instruction. 

Three more calls to 457B are made using the indices 9, A and B, which result in 
calls to the routines pointed to by 4512, 4514 and 4516. After the last call to 
457B, the counter in 4040 is incremented, and the low order three bits are 
isolated in the A register. Control then falls into 457B, which will form an address 
in the range of 4500 - 450E based on the index. The contents of that address will 
be loaded and control passed to it. Return will be made to the caller of the clock 
interrupt processor (in this case the interrupt service processor). 

3.4.4 Clock Maintenance Code 

This subroutine maintains the time of day clock in seconds, minutes and hours. 
The time is kept in binary at locations 4041, 4042 and 4043. 

The clock maintenance code is entered from the clock interrupt service routine 
once every 200 milliseconds. Since it is entered every 200 milliseconds (5 times a 
second), it begins by decrementing a local counter to test if it has been entered 5 
times. If so, one second has elapsed and the second counter (404 1) is incremented. 
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After being bumped, the second counter is tested for being equal to 60. If it is, one 
minute has elapsed, and the minute counter (4042) is incremented. Next, the 
minute counter is tested for being equal to 60. If it is, one hour has elapsed, and the 
hour counter (4043) is incremented. 

The maintenance code begins at 45B2. It begins by decrementing a local 
variable which contains a 5. This variable is used to keep count of the number of 
times the subroutine has been entered. On every 5th entry, one second has elapsed. 
If a second has not elapsed since the last entry, control returns to the caller (the 
clock interrupt processor). Notice that the IX register is used as a base register for 
this operation. This is possible because it was initialized to the origin of the 
subroutine by the clock interrupt processor. 

If the decremented value goes to zero, it is re-initialized as 5 and preperations are 
made to increment the second, hour and minute counters. These preperations 
consist of setting a loop counter (B register) to 3, and loading the HL and DE 
registers with the address of the counters and a list of values representing the 
maximum values for each of the counters (except the hour counter). 

Next, a loop starting at 45C2 is entered. This loop increments a counter pointed 
to by the HL register and then compares the current value to a maximum value 
pointed to by the DE register pair. If the counter value has not reached its max, 
control returns to the caller (clock interrupt processor). If the maximum value has 
been reached, the counter is re-initialized to zero, and the entire process is 
repeated for the next counter. The loop terminates when three counters have been 
incremented or a counter is incremented without reaching its maximum limit. 

3.4.5 Disk File Operations 

Before a disk file can be accessed, it must be OPEN'ed, or if it is being created, 
an INIT call must be made. The purpose of both calls is similar. The OPEN call 
locates the directory entry for a file and copies pertinent information to the DCB. 
The INIT call creates a directory entry and initializes the DCB so a file may be 
written. Both calls expect a DCB address as a parameter. The DCB must contain 
the file name to be located or created, an optional drive specification and an 
optional password. 

After the OPEN or INIT call, the DCB contains a precise description of the file. 
This description includes the drive number where the file resides, permission 
flags, the address of the sector buffer, the record length, the extent (length) of the 
file and a list of disk addresses assigned to the file. A description of the DCB is 
given below. 
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Figure 3.10 Disk DCB Description 
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After a file has been OPEN'ed it can be addressed at a record level through calls 
to system READ, WRITE, POSITION and REWIND subroutines. Record access 
will take place at a logical or a physical level depending on which was specified 
when the file was opened. Physical records are equivalent to one sector. Reading 
or writing a physical record always results in a data transfer. 
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Logical records are usually smaller than a sector; however, they may be the same 
size as sector, but no larger. In most applications where logical records are used, 
several records will fit into one sector. When a READ or a WRITE occurs, a logical 
record is moved between the sector buffer and the caller' s data area. When no logical 
records remain in the sector buffer, or if the buffer is full (depending on the 
operation being performed), a physical I/O call will be automatically issued to fill or 
flush (write buffer to disk) the sector buffer. 

Records may be accessed randomly or sequentially according to a record 
number in the DCB. Each call, except for REWIND or POSITION, causes the 
record number to be updated by one. Records are numbered from to 65535. 

All file accesses are accomplished through calls to system routines which 
perform the required function. Parameters specified are the same for all calls and 
include: a DCB address, a sector buffer address and the logical record length. If 
physical I/O is being performed, the logical record length is zero. 

There are several entry points in TRSDOS for file operations. They are: 

4436 - read 

4439 - write 

443C - write with verify 

443F - rewind 

4442 - position to record 

4445 - backspace one record 

4448 - skip to end of file 

These addresses contain jumps to the specified functions. The code that 
actually performs the operation is located elsewhere. All of these entry points 
expect the same parameters, and all of them begin by testing the DCB to insure the 
file has been opened. Assuming that to be true, the IX register is set to the DCB 
address, the caller's registers are saved, the sector buffer address is saved at 430C, 
the DCB address is saved at 430 A and an exit address of 48B3 is pushed onto the 
stack. This address is used to restore the caller's registers before returning. 

READ and WRITE processing are similar enough to be discussed together. 
Both begin by testing for logical versus physical I/O. This test is made on a flag bit 
in the DCB. 

Logical READs begin with a test for end of file. This is done by comparing the 
requested record number against the largest record number known to exist on the 
file. If end of file is detected, an error status is returned. Otherwise repeated calls 
are made to a subroutine at 47BB to fetch the next character from the sector 
buffer belonging to the file. This subroutine begins by testing a flag in the DCB 
which indicates if a physical read is required to fill the sector buffer. If the flag is 
set, the next sector is read. Following the test or the read, a second subroutine at 
4883 is called, which computes the address of the next available data byte by 
adding the current offset to the origin of the sector buffer. The calling routine 
(47BB) maintains an offset to the next available character in the sector buffer in 
the DCB associated with the file. When the offset goes to zero (rolls over because 
of overflow), a flag in the DCB is set, which causes the next physical sector to be 
READ. 



TRSDOS 2.3 Decoded 41 



Disk File Operations 



No test for end of file is made if the operation is a logical WRITE. Like the 
READ routine, a subroutine is called on a byte basis, but in this case it is called to 
store a byte in the sector buffer. The byte store routine is located at 47DA. It 
begins by testing a flag in the DCB to determine if the sector buffer is full and 
needs to be written to disk. If true, the sector write routine at 482D is called to 
purge the current buffer. After flushing the buffer, or if the buffer was not full, the 
next character is stored in the sector buffer and control returns to the main loop, 
which starts at 478B. 

The physical READ and WRITE routines are different from their logical 
cousins in that they always read or write a sector. The routines they call to prepare 
for these transfers are used by the logical operations when a physical transfer is 
needed. 

Before the disk driver can be called to transfer a record, the record number must 
be translated into an absolute track and sector number to be used as parameters 
to the disk drivers. 

Translation from a record number (i.e., sector number), to a track and sector 
number consists of three steps. First, the record number must be converted to a 
'relative' granule and sector number. Second, the 'relative' granule number is used 
to locate the granule allocation pair (GAP) in the DCB associated with the record. 
Third, a track and sector number are derived from the GAP located in step two. 
These steps can best be illustrated with the following example. 

Assume we have a file containing 73 records (in this case, one record equals one 
sector) and we wish to read record 38. Let's make a further assumption that the 
following tracks and sectors are assigned to the file: 



Figure 3.11a 
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After being OPEN'ed, the DCB for this file would appear as follows: 



Figure 3.11b File DCB 
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Step one is to convert the required record number into a 'relative' granule 
number. This is accomplished with a modulo division by five. Five is chosen as the 
divisor because there are five sectors in a granule. In our example, 

38 / 5 = 7 with a remainder of 3, where: 

7 = 'relative' granule number and, 
3 = sector offset within granule. 

The 'relative' granule number is the number of the granule assigned to the file 
which contains the target sector. The sector offset is the number of the target sector 
within the granule. This computation can be verified by referring to the granule and 
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track assignments shown above. Record 38 would reside in 'relative' granule 7, as can 
be proved by totaling the sectors in granules through 6. 

Step two consists of searching the DCB until the GAP containing granule 7 is 
found. This step requires more explanation of the GAP's (as they are used in the 
DCB's). 

GAP's in the DCB consist of four bytes. GAP's stored in the directory entries 
contain two bytes. The extra two bytes in the DCB GAP's are used to facilitate 
locating a GAP containing a particular granule number. These bytes contain the 
maximum relative granule number addressable by the GAP. 

For example, consider a file composed of the GAP's shown above. GAP 1 contains 
three granules (two on track 18 and one on track 19)/ The largest 'relative' granule 
addressable using GAP 1 would be 2. 

GAP 2 contains four granules. Counting the three granules in GAP 1, the largest 
granule addressable using GAP 2 is 6. 

In step two, the granule number computed at step one is compared to the granule 
totals in bytes 3 and 4 of the GAP's until the GAP containing the required granule is 
found. 

In our example, granule 7 contains the target sector. GAP 1 can be skipped because 
7 is greater than 2. GAP 2 can be skipped for the same reason. GAP 3 contains the 
required granule number because 7 (the required granule number) is between 8 (the 
largest addressable granule in GAP 3) and 6 (the largest addressable granule in the 
previous GAP). 

Step three derives the track and sector number for the required granule using bytes 
one and two of the GAP. In the example chosen, the derivation is simple. Granule 7 
is the first granule in the GAP; therefore, the target track number is 25, and the sector 
number is 3. 

The code which performs these steps occupies location 480C - 49B4. A 
subroutine at 49B5 may be called under special circumstances. 

The code appears to be quite lengthy in comparison to the explanation. The 
reason for this is that none of the exception conditions were discussed. For 
example, notice that the maximum granule number in the DCB is 10, yet the file 
contains 14 granules. What would happen if we wanted to read record 67 (granule 
13, sector 2)? Also, there was no detailed explanation of step three, which can 
become somewhat involved as seen from the code at 496A - 49B4. 

The controlling code for physical reads and writes occuppies 480E through 
482C and 483E through 4876, respectively. Both of the controlling routines call 
a subroutine at 48DC - 4926 to perform the record number to disk address 
translation. Ordinarily, this translation would be starightforward, but there are 
two cases which may complicate the processing. The first occurs when a very large 
file is accessed and the GAP/VALUE set owning the record is not in the DCB. The 
second case occurs when a file is being created and a GAP must be assigned. Both 
special cases, as well as the more common cases are discussed below. 
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The subroutine at 48DC begins with a mod 5 division of the record number. The 
result is the granule (quotient), and the sector within the granule (remainder) 
containing the target record. Five is used as a divisor because there are five sectors 
to a granule. Following the division the GAP/VALUE sets in the DCB are searched 
until the GAP containing the computed granule is found. The loop for this search 
begins at 48F9 and ends at 4926. It may be terminated for two reasons. First, the 
correct GAP may be found. In that case control goes to 496A, where the track and 
sector number are derived. The second possibility is that the GAP may not be 
found. That may be due to one of two reasons. First, the GAP being sought may 
exist in an oveflow entry which has not been read yet; second, if the file is being 
written for the first time, GAP's must be assigned by the disk space allocator. In 
either case, if the GAP owning the granule is not found, control will go to 49B5. 

At 49B5 the primary directory entry for the file is read so that a test for 
overflow entries can be made. If there are no oveflow entries, control goes to 4A00, 
where a GAP is assigned. Since end of file tests were performed earlier, it is safe to 
assume a WRITE operation is in progress. 

If overflow entries exist, they are read and searched for the GAP owning the 
granule number computed from the record number. All overflow entries are read 
until one containing the desired GAP is found. The search is performed in the 
subroutine at 49B5. An exit from 49B5 is not taken until the GAP being sought 
has been found, or one has been assigned if the operation is a WRITE. 

Following the call to 48DC, the read/write next sector flag is zeroed, the record 
number in the DCB is incremented and the disk driver is called to perform the 
physical transfer. 

3.4.6 Disk Driver 

The disk driver resides at 4671 - 46DC. It is generalized for READ and 
WRITE operations only. No other operations can be processed by the driver. The 
driver transfers one sector per call. Multi-sector calls are not supported. It is 
entered through calls to one of three subroutines, which setup a parameter list 
before calling the driver. Upon exit from the driver, control returns to the caller of 
the subroutine used to call the driver. The addresses of the subroutines are: 



46 DD (read a sector) 
46 E6 (write a sector) 
46 F3 (reads sector but does not transfer data). 

The calling sequence to the driver is as follows: 



Driver Calling Sequence 










LD 


A, OPCODE 


READ/WRITE 


op 


code 




LD 


C,UNIT 


unit # 








LD 


D, TRACK 


track # 








LD 


E, SECTOR 


sector # 








LD 


BC, BUFFER 


buffer address 




Listing Continued . . . 
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Continued Listing 



CALL 4671H 
DEFB COUNT 
DEFB BIAS 
DEFW INSTR 



call driver 

retry count 

bias to be added to status bit 

LD A,(BC)/LD (DE) ,A 



Subroutine calls are used to select the unit and initiate all physical motion 
except the data transfer. Those subroutines may call other subroutines to perform 
part of the required function. Main subroutines called from the disk driver are: 
select unit and position to track and sector (4647), wait for controller ready 

(4455) and error recovery -- issue RESTORE and retry operations (4C9B). 
Subroutines called from these subroutines are: get disk status (45 F3), restore head 
(4658) and build unit select mask (4639). 

The disk driver begins by saving the op-code in location 469A. Next, the 
parameters are retrieved, and the registers are set up for the data transfer 
operation. Following that, the unit is selected and positioned to the desired track 
and sector. The subroutine used for this begins at 4600 and ends at 4638. 

It begins by waiting for the controller to become not busy. Next, the unit number 
is saved in 4803; then the track for the currently selected unit is fetched from the 
controller and saved in the track history table beginning at 430A. This table is 
indexed by unit, it contains the last track addressed on each unit. Following that, 
a unit select mask is constructed by a call to 4639. This mask is derived from the 
unit number by synthesizing a SET instruction using the drive number as the bit 
number to be set. The mask is then stored in 37E1, causing the drive to be 
selected. 

The unit select mask for the current unit is saved in 4309 for future reference. 
After selecting the unit, the drive is tested to see if it is ready, and, if so, the 
subroutine exits back to the driver. Otherwise, a delay loop is executed before 
returning to the driver. 

Following the call to 4647, the driver calls 4455 to wait for drive ready. Upon 
return, interrupts are disabled, the command is sent to the controller and a test is 
made to determine if the sector buffer overlays the last sector buffer used for a 
system overlay. If so, 430E is cleared to indicate the overlay area has been used 
and that the next overlay to be used must be loaded from disk. 

Next, the main loop for the data transfer is entered. The loop is short and starts 
with a sub-loop that tests for data available or drive not ready. If data is available, 
or the controller is able to accecpt the next data byte, the transfer is made, the 
buffer address is bumped, and control returns to the sub-loop described above. 
Eventually, the drive will become not ready (after a sector has been transferred), 
and control will pass to 46AD, where the status will be examined and the 
controller is shut down with a force interrupt command. 

The status test starts with a quick test for any errors. If none are found, 
interrupts are enabled and the driver returns to the caller. 
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If any kind of error occurred, a second test for a read/write fault or lost data is 
performed If neither was the case, 'unit not ready' or 'record not found' is assumed. 
In this case, interrupts are enabled, the heads are restored and the error retry is 
decremented. If the error count is not exhausted, the operation is retried. 

If the status indicated lost data, the error count is decremented, and if it has not 
been exhausted, the operation is retried 

When the error count is exhausted or a read/write fault is detected, the number 
of the first non-zero bit in the status (starting from bit 0) is added to the bias value 
passed in the parameter list. The calling program will compare this value against 
a constant to determine if the operation terminated without error. The sum is left 
in the A register, interrupts are enabled, and control is returned to the caller. The 
flowchart below illustrates this processing 



Figure 3.13 Disk Error Recovery Flow Chart 
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3.4.7 Disk Space Management 

TRSDOS supports 35-track, single-sided, single-density disk drives. Up to four 
drives can be connected to a system. A fixed sector size of 256 bytes is used. Each 
track contains 10 sectors. Tracks are formatted with the sectors interleaved in the 
order 0, 5, 1, 6, 2, 

A diskette can contain up to 64 files. There is no limit to the size of a file except 
that it cannot overflow a diskette. 

A diskette is divided into units called granules. A granule is five consecutive 
sectors. Each track contains two granules, one starting on sector zero and ending 
on sector four, the other starting on sector five and ending on sector nine. 

A bit map is used to keep track of the available granules. The bit map is kept on 
track 11, sector and is called the GAT (GRANULE ALLOCATION TABLE) 
sector. It occuppies the first 80 bytes of the sector. Since TRSDOS supports only 
35 tracks, the last 45 bytes of the bit map are unused. Each byte represents one 
track. Bits 2 through 7 are not used (they are initialized to binary ones). Bits and 
1 represent the first and second granules, respectively, for the track associated 
with the index into the bit map. A zero means the granule is available, a one means 
the granule has been assigned. A complete description of the GAT sector may be 
found in Section 2.5. 

A list of granules assigned to a file is kept in both the directory entry for the file 
and in the DCB (after the file has been OPEN'ed). The list consists of a set of 
Granule Allocation Pairs, or GAP's. A description of a GAP is given below. 



Figure 3.14 Granule Allocation Pair Description 



RESERVED- 



TRACK NUMBER 



-Number of consecutively assigned granules - 1 

-0 - Starting granule in first granule of track 
(sector 0) 

1 - Starting granule in record granule of 
track (sector 5) 
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The first byte contains the beginning track number. The second byte contains 
the number of consecutively assigned granules minus one plus a flag indicating the 
starting granule sector number. There is no limit to the number of GAP's that can 
be assigned to a file. However, a directory file entry will hold up to 5, andaDCBupto 

4. If a file has more than 5 GAP's, an overflow directory entry is created to hold the 
surplus GAP's. 

Each GAP can represent a maximum of 32 granules because the width of the 
count field is 5 bits. Whenever there is a break in the number of consecutive 
granules, a new GAP is created. 

When a file is initially created, the GAP's are maintained in the DCB until the 
file is CLOSE'd, at which time they are copied to the directory. If, however, while 
updating a file the GAP area of the DCB becomes full, a portion of the GAP's will 
be transferred to the directory. 

The use of the GAP's in the DCB is slightly different than in the directory. 
Referring to Fig. 3.10, notice that there is a two-byte value following each GAP. 
The value is the total number of granules addressable through the preceeding 
GAP. The system uses this value to locate the GAP to use for address calculations. 
When accessing a record, the record number is translated into a granule number. 
This granule number is then compared to the values following the GAP's in the 
DCB until the value nearest to it is found. The GAP belonging to the nearest value 
is used for the disk address calculation. For example, if the first GAP was followed 
by a value of 250 (hex.), and record 10 (hex.) was being accessed, then the first GAP 
could be used for computing the absolute track and sector number. If, on the other 
hand record 350 (hex.) was being accessed, the. search would continue until the 
first value greater than 350 was found. Then, the preceeding GAP would be be 
used. For more details relating to record translation using GAP's, see Section 3.4.5. 

Disk space is allocated by the code from 49F1 through 4B34. This is a broad 
region of code which may be subdivided into eight seperate areas. Two of those 
areas (one at 4 A2 A - 4 A68, and the other at 4 A6E - 4 ABF) actually scan the bit 
map and assign granules. The remaining areas contain suppport code to: read the 
GAT sector (4AF0 - 4B02), write the updated GAT sector after a granule has 
been assigned (4B03 - 4B1DD), read the directory entry for the current file 
(4AC1 - 4AD5), build an overflow directory entry (4A6B - 4A6D), write the 
updated directory entry (4AD6 - 4AEF) and compute the track and sector 
number for a directory entry (4B1E - 4B34). 

The codes of interest here are the two areas that allocate granules. Both have a 
common section (4A00 - 4A28) which is executed before either is entered. The 
common section reads the GAT sector containing the bit map into the buffer at 
4D00 and then determines if an initial granule assignment is being made or a 
granule is being added to an existing GAP. 
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There are several reasons for distinguishing between the two cases, but the most 
obvious one is that for an initial granule assignment, any granule can be assigned; 
whereas, when assigning granules to an existing file, it makes sense to try to assign 
the granule following the last one assigned to the file. For example, if a file had 
three granules assigned starting at track 10, sector 0, and the file was being 
extended, it would be more efficient to assign the granule for track 1 1 , sector 5 than 
any other granule. First, this would allow the GAP for the existing granules to be 
used; otherwise, a new one must be created. Second, there is an advantage in using 
granules close to those already assigned because head movement is minimized, and 
if the granules are consecutive, there is no unnecessary motion. 

The code at the tail end of the common section terminates by testing if the first 
GAP for the file is being created. If it is, control goes to 4A6E, where an available 
granule is found and a GAP entry is created. If a GAP already exists, its count field 
is tested for being full (20 hex.), and if full, control goes to 4A54. 

At 4A54, a second test is made to determine if the end of the GAP space in the 
DCB has been reached. If not, control goes to 4A6E. There, a granule will be 
assigned, and a GAP entry will be added to the DCB. 

If the DCB is full (all GAP entries have been used), the GAT and directory 
sectors are updated on disk; then an overflow directory entry is created (call to 
4A6B), and processing resumes at 49B5. Recall that the maximum number of 
GAP's that can be carried in a directory entry is 5. That is also the maximum that 
can be carried in a DCB. When a DCB is full, the GAP section of the directory entry 
must be full as well. Therefore, an overflow directory entry must be created. 

Assuming none of the above cases are true (we are trying to add a granule to an 
existing GAP), the code from 4A44 - 4A52 is executed. This code begins by 
testing the last granule assigned. If it was the last physical granule (4A44 - 
4A4B), a new GAP must be created, and control passes to 4A54. Otherwise, the 
subroutine at 4B5D is called to determine if the next consecutive granule is 
available. If it is, control goes to 4A9C, where it is marked as assigned, and the 
granule count in the DCB is incremented. If the granule is not available, control 
goes to 4A54 (which has already been described) to create a new GAP. 

The code starting at 46AE scans the bit map, looking for an available granule. 
This code may be entered when the first granule of a GAP is being assigned, and 
consequently, it must be able to construct the GAP entry as well as assign granules. 
The map may be scanned twice because on entry, the HL register pair contains a 
starting position in the map for the scan. Since this may not always be the start of 
the map, the scan must be performed twice if no granule is found on the first pass. 

When an available granule is found, control goes to 4A89, where a number of 
interesting things happen. First, the count of granules assigned is initialized to 
minus one in case an initial granule assignment is being made. This count will be 
incremented by one for each granule assigned, and the result will be copied to the 
second byte of the GAP if necessary. Second, a loop from 4A8F to 4A9A is 
executed to determine exactly which granule (the first or the second) of the track 
is available. This is important, because bit 5 in the second GAP byte must be set 
to indicate if the first granule begins on sector 0, or sector 5. 
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As a part of this loop, a subroutine at 4B5D is called to build a BIT instruction 
which will be used to determine the exact bit (granule or granule 1) that is 
available. After the exact bit for the granule to be assigned has been found, control 
goes to 4A9C, where a subroutine at 4639 is called to flag the granule as 
unavailable in the GAT. Next, a test at 4AA3 - 4AA5 determines if this is an 
initial granule assignment and, hence, the GAP must be created, or if a granule is 
being added to an existing GAP. If the latter, control goes to 4AA9, skipping over 
the code which copies the track owning the granule to the DCB. 

Finally, a test is made to determine if the required number of granules has been 
assigned. Usually, this number is two; however, in some cases it is one. 

When the required number has been assigned, the updated GAT bit map is 
written back to the diskette it was read from, the directory entry for the file is 
rewritten (it has been updated) and control returns to the calling routine. 

3.4.8 File Loader 

TRSDOS consists of a core resident nucleus plus various system overlays and 
utility programs. The system overlays are loaded into a special region within the 
nucleus (4E00 - 5 IFF), while the utilities are loaded at 5200 and above. 
User-written assembly programs can be loaded and executed as utility programs. 

Both the overlays and the utilities are kept on the disk as named files. They are 
stored in assembler object format with embedded control codes specifying the load 
addresses, the type of data (text or code), and the beginning execution addresses. 
The format for assembler object files is given below. 



Figure 3.15 Object Code Format 



Assembler Object Code Format 

The general form of an object file is: 

(Control Code) (Count) (Load Address) (Load Data) 

In some cases the count field or load address may be omitted. 

Control Code: 01 (data to be loaded follows) 

Count : XX (count of bytes to load, = 256) 

Load Address: XX (load address in LSB/MSB order) 

XX 
Load Data : XX 

XX 

Control Code: 02 (beginning execution address follows) 

XX (this byte is to be discarded) 

Address : XX (execution address in 

XX (LSB/MSB order) 



Control Code 
Count 
Skip Data 



03 - 05 (following data is to be skipped) 
XX (count of bytes to skip) 
XX (this data is to be skipped) 
XX 
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A loader (4C39 - 4C9A) is used to load any assembler object file. The loader is 
called from different points within the nucleus, depending on whether an overlay 
or a utility is being loaded. 

Utilities are loaded through a file call to 4430, which is routed to 4C16. 
Overlays are loaded using a special RST function which gets routed to 4BA2. The 
overlay loader is discussed in the next section. 

The file loader (4C16 - 4C35) expects the registers to be loaded for an OPEN 
call. The B and HL registers need not be set, as they will be initialized to a 00 and 
4200, respectively. After the registers have been initialized, an OPEN call is made 
against the DCB, passed as an argument. 

If the OPEN is successfull, the permission flags are tested to verify execute 
access on the file before control goes to the loader. 

The loader occupies locations 4C39 through 4C9A. Upon entry, the DCB 
address for the load file is saved at 4C8D and the E register is set to minus one. 

It is assumed that the DE register set points to the sector buffer for the load file. 
The buffer is assumed to start on an address which is an even multiple of 256. Thus, 
the D register contains the page number, and the E register is used as an index into 
the page (buffer). 

The main loop extends from 4C40 to 4C87. Two subroutines are used from the 
main loop. One is called to fetch the next byte from the sector buffer. 

This subroutine (4C89 - 4C9A), increments the address in DE and fetches the 
next data byte from the buffer. If the buffer is exhausted (E register equals zero), 
the next sector is read from the file and the DE register is reinitialized to 4200. 

A second subroutine is called to read the next sector when, under special 
circumnstances, the buffer becomes exhausted without calling the fetch next byte 
routine. This situation arises when records in the load file are being skipped. 

The main loop calls the next byte routine to fetch the control byte, the byte 
count and the load address (two bytes) for the data. The control byte is tested to 
insure it is within range (< IF). If not, an error status of 62 is returned to the 
caller. 

Assuming the control code is in range, the byte count and the LSB of load 
addresses are fetched. At this point, the control byte is tested, and if found to be 
a 1, control goes to 4C6C. Here the number of bytes specified in the control area 
is transferred from the sector buffer to the load address. Following each transfer, 
a test is performed to insure the data was successfully stored and that the sector 
buffer has not been exhausted. If the data was not stored successfully, control goes 
to 4C80, where a test is made to determine if an error occurred on the fetch 
instruction (error code 24), or on the store instruction (error code 23). After the 
cause of the error is determined, the appropriate error message is displayed. 

When the byte count is exhausted, control returns to 4C40, where the next 
control byte is read. 
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If the control byte does not equal 1, it is compared with a 2. If it is 2, the next byte 
is fetched and discarded so that the transfer address (starting execution address) 
may be loaded into the HL register. 

If the control byte is not a 1 or a 2, control goes to 4C68. The code at this address 
skips forward to the next control byte in the sector buffer. When the buffer pointer 
is positioned to the next control byte, control goes to the start of the load loop 
(4C40). 

3.4.9 Overlay Loader 

The overlay loader occupies locations 4BA2 through 4C05. It is used to load 
and execute system overlays. The overlay loader is similar to the file loader, but 
there are several important differences between the two. 

The file loader expects the DE register to contain the address of a DCB for the 
file to be loaded as a parameter. The overlay loader is given the number of the 
directory sector containing the name of the file to be loaded (the file name must 
occupy the first or second entry in the sector). 

Programs loaded as files, as opposed to overlays, cannot have parameters passed 
through registers. They must examine the load call in the command line buffer 
to locate any parameters. Overlays are entered with a parameter byte in the A 
register. In addition, overlays return a status to the caller via the A and STATUS 
registers. And finally, the overlay loader does not reload an overlay if it is already 
core resident. 

Overlays are loaded using the following calling sequence: 



Figure 3.16 Overlay Request Code Description 



. Sector Number- 2 of directory sector con- 
" taining file name of overlay to be loaded. 

■Offset into directory sector for file entry. 

- Use first entry in sector 

1 - Use second entry in sector 



-Overlay request option 



Must be a 1 
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The overlay loader begins by disposing of the return address on the stack 
generated by the RST instruction. The return address of the caller of RST 
subroutine is then loaded into the HL register set. 

Next, the parameter in the A register is tested. If bit 7 is zero, it is an invalid 
parameter, and control is returned to the caller. Assuming a valid parameter was 
passed, the return address is saved on the stack, and the incoming parameter is 
compared to the previous parameter. If they are the same, control goes to 4BC0. 

At 4BC0 the overlay is entered with the parameter in the A register. Since 
overlays may be re-executed without being reloaded, they must be written so they 
are re-enterent. This means any counters must be initialized by load and store 
instructions rather than being defined as constants via DEFB or DEFW 
pseudo-ops. For example, consider the following sequence of code: 



Figure 3.17 Non Re-enterent Code Example 

LOOP LD 

DEC 

LD 

JR 



A, (COUNT) ;load A with whatever 

is in "Count" address 
A 

(COUNT) , A 

Z,END 



JR 
END 



LOOP 



COUNT DEFB 10 
END 



This code could only be executed once, because the value used to control the loop 
(COUNT) is initialized when the program is loaded. In order for this code to be 
re- executable without being reloaded, it would need to be changed as follows: 



Figure 3.18 Re-executable Code Example 

LD 
LD 



LOOP 



LD 
DEC 
LD 
JR 



A, 10 

(COUNT) , A ; COUNT NOW ALWAYS 

CONTAINS SAME VALUE 
A, (COUNT) 
A 

(COUNT) ,A 
Z f OUT 



JR 
OUT 



LOOP 
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If the lower 4 bits of the overlay request code do not match the same bits from 
the previous request, a new overlay must be loaded. 

The code from 4BB6 - 4BEC is used for the load operation. It beginsby testing 
bit 3 of the request to determine which entry in the directory sector contains the 
name of the file to be loaded. Depending on the results of the test, the index into 
the sector buffer (contents of the A register) may be adjusted. In any case, the 
sector buffer index is copied into the B register for use by the subroutine at 4B IE, 
which will be called indirectly during subsequent processing. Following is the code 
used for this test and adjustment: 



Figure 3.19 SYSO Code From 4BB6 to 4BC0 



4BB6 D5 


PUSH 


DE 


4BB7 C5 


PUSH 


BC 


4BB8 E60F 


AND 


0FH 


4BBA FE08 


CP 


08H 


4BBC 3802 


JR 


C,4BC0H 


4BBE C618 


ADD 


A,18H 


4BC0 47 


LD 


B,A 



Save caller's DE 

and BC 

Isolate directory sector number 

Test for 1st or 2nd entry in sector 

Jump if 2st entry to be used 
Else get new sec no. - file offset 
Move to B. Will be used for 
computing buffer addr by 4B1E 



After the sector buffer address for the filename has been computed, the short 
system DCB is initialized to read the file name. Then, the directory sector is read 
through a subroutine call to 4AC1. 



The subroutine at 4 AC 1 saves the BC and DE registers before calling another 
subroutine at 4B1E to return the track number for the directory. 

The subroutine at 4B1E in turn calls a subroutine at 4B55, which uses 
a table look-up to locate the directory track number for the unit speciffied in the 
C register. When control returns to 4B21 from 4B55, the directory sector 
number is tested to insure it lies between and 8, and if so, it is adjusted to the true 
sector number. A cector number greater than 8 is considered an error, and a 
non-zero status (error status) is returned to the caller of 4B1E. 

At this point, the low 4 bits of the request code would have been translated as 
follows. 
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Figure 3.20 Finding the Sector/Buffer Location of System Overlays 
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Control will eventually return to 4 AC6, where a test for error conditions (non-zero 
status) is performed. Assuming no errors occurred, the address of the required file in 
the sector buffer is saved on the stack, a sector buffer address of 4200 is loaded in 
the HL register pair, and the subroutine at 4B35 is called to read the required 
directory sector. After the read completes, the HL, DE and BC registers are 
restored, and control returns to 34BD. 

At 4BD1, a branch to 4409 is taken if any error occurred during the read 
operation. If no error occurred, the first GAP (starting tracking number and 
number of granules) is fetched from the file entry in the directory sector and 
transferred to the system DCB. The following code is used for this operation: 
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Figure 3.21 SYSO Code From 4BD1 to 4BDC 



4BD1 C20944 


JP 


NZ,4409H 


4BD4 7D 


LD 


A,L 


4BD5 C616 


ADD 


A r 16H 


4BD7 6F 


LD 


L r A 


4BD8 7E 


LD 


A, (HL) 


4BD9 2C 


INC 


L 


4BDA 66 


LD 


H, (HL) 


4BDB 6F 


LD 


L r A 


4BDC 22AE44 


LD 


(44AEH) , 



HL 



Jump if error during read 

LSB of file entry addr in buffer 

Add offset to position to first GAP 

Form GAP address in HL 

Fetch track number for overlay 

Bump to 2nd GAP byte 

Fetch sect, offset/granules assigned 

HL=lst GAP for overlay 

Save as 1st GAP in short system DCB 



After initializing the DCB, the system loader at 4C39 is called to load the file. 

Here the GAP for the file is moved to the system DCB (the same one used to read 
the directory sector), the system DCB address is loaded into the DE register, and 
the system loader at 4C39 is called to load the file. For a description of the system 
loader, see Section 3.4.8. 

When control returns from the system loader, the transfer address in the HL 
register pair is saved as the address of a CALL instruction at 4BFB, which will 
eventually be used to enter the overlay. Next, the DEBUG flag is saved in local 
storage so it can be restored after the overlay has been executed; then it is zeroed. 
Following that, the parameter value is loaded into the A register, and the overlay 
is entered through a CALL instruction. Upon return, the DEBUG flag is restored, 
and control returns to the overlay caller. None of the registers are preserved. 

3.4.10 Trace Display 

The TRACE routine displays the PC register on the top row of the video each 
time an interrupt occurs. This can be very useful for debugging programs, 
particularly those that take wild branches or get stuck in a loop at an unknown 
address. 

The TRACE command is recognized and processed by SYS1/SYS. No display 
action is taken when the command is processed. Instead, one of the interrupt 
address lists in the nucleus is updated so that the TRACE routine in the nucleus 
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will be executed on every clock interrupt (once every 25 milliseconds). Before 
going on, we will describe the nucleus routine called to update the address list. 

Recall from Sections 3.4.1 and 3.4.4 the two address lists used at interrupt time. 
One (404D - 405C, called the INTERRUPT SERVICE list), contains the 
addresses of routines to be executed for specific interrupt conditions, such as 
clock, disk or communications interrupts. The other (4500 - 4515, called the 
INTERRUPT ACTION list) contains the addresses of routines to be executed 
during each clock interrupt. Although there is room for 12 addresses in the 
ACTION list, only those pointed to by the last four entries (4510 - 4516), are 
executed during clock interrupt processing. 

A service routine in the nucleus (4593 - 45 A2) is used to update the INTERRUPT 
ACTION list There are two entry points in this routine. Both of them expect an 
index indicating the position to be updated. The index is passed in the B register. 
One (4413) is called to store the address of a RET instruction at the specified 
position in the list. The other (4410) is called to store the address, contained in the 
DE register set, in the list at the position specified by the B register. 

When SYSl processes a TRACE,ON command, a call to 44 10 is made to update 
the INTERRUPT ACTION list. The address of the TRACE display routine 
(4CDB) in the nucleus is stored in the ACTION list at the 16th position (4516). 
Whenever a clock interrupt occurs, control will eventually pass to 4CDB to 
display the address of the instruction being executed when the interrupt occurred. 

TRACE,OFF commands are also processed by SYSl. In their case, 4413 is 
called to store the address of a RET instruction at the 16th entry of the ACTION 
list. 

Routines entered via the ACTION list are entered through two levels of 
indirection. The addresses in the ACTION list are the locations of yet another 
pointer to the routine to be executed. There does not seem to be any reason for the 
second level of indirection, except for the way in which the ACTION routines were 
implemented. 

The TRACE display routine at 4CDB begins by computing the stack address 
for the interrupt address. This amounts to backspacing the system stack pointer 
12 locations (except that the stack pointer is not actually changed). The address of 
the backspaced pointer is kept in the HL register set. It points to the return 
address (the address of the instruction being executed when the interrupt 
occurred). Next, the return address is loaded into the DE register pair, and the HL 
register set is loaded with the screen address where the PC register will be 
displayed. Following that, the return address is converted to its ASCII equivalent 
and stored (displayed on the video) at the address in HL, and then control is 
returned to the caller (in this case, 4574 in the clock interrupt service routine). 

The code for TRACE occuppies 4CD9 through 4CFF. 4CD9 contains the 
address of the first instruction in the TRACE routine. Remember, it is entered 
indirectly. Starting at 4CDB is the code that computes the stack address for the 
interrupt address. 4CDF through 4CE1 load that address into the DE register, 
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and the code at 4CE2 initializes the HL register with the video address. 

The code from 4CEA through 4CFF converts the value in the A register into its 
ASCII equivalent and stores the result (two characters) at the address specified by 
the HL register. This code is CALL'ed from 4CE6 to convert and display the most 
significant byte of the interrupt address, and is entered directly by falling through 
from 4CE9 to do the same with the least significant byte of the address. 

This code begins by saving the value to be converted on the stack. This step is 
necessary, as we shall see from the remainder of the processing. Following the save 
instruction, the A register is shifted right 4 bits. This gets rid of the rightmost digit 
of the two digits to be converted. As a result, the A register is left with a single, 4-bit 
hex value which needs to be converted to ASCII. 

The ASCII conversion is performed by a CALL to 4CF3. Like the code from 
4CEA - 4CFF, this subroutine is entered by a CALL for one value, and then it is 
entered directly from above for the the second value to be converted 

The subroutine at 4CF3 begins by isolating the value to be converted to hex 
with a 4-bit mask (see 4CF3). Next, a 30 is added to the 4-bit value, yielding the 
ASCII equivalent for the number. The result must be tested for values greater than 
10, since there is no direct mapping from hex to ASCII for the values A - F. If the 
hex character was an A - F, then it must be converted from a 3 A - 3F to a 41 - 46. 
This entire operation is performed by the code from 4CF5 - 4CFB. After the 
conversion, the ASCII equivalent of the hex value is displayed at the address 
specified in the HL register, the HL register is bumped and control returns to the 
caller. 

3.4.11 Clock Display 

The clock routine displays the current time on the top line of the video. The 
clock routine is entered from the clock interrupt processor every 200 milliseconds 
if a CLOCK,ON command has been executed. 

Since it is entered every 200 milliseconds and the time needs updating only once 
a second (1000 milliseconds), the display routine has a counter to tell when it has 
been entered 5 times. 

The code for the display occuppies 4CAC - 4CD0. It begins by decrementing 
a local counter that is initialized as 5. If the result is non-zero, control returns 
immediately to the clock interrupt routine. When the counter goes to zero, it is 
re-initialized as 5, the current time is converted to ASCII and displayed. 

The conversion and display loop begins at 4CBC. This loop assumes HL 
contains the display address, DE the ending address of the locations containing 
the time in binary, the C register an ASCII :, and the B register a loop count. 

Most of the loop is devoted to a binary to decimal-ASCII conversion. The 
conversion is simple enough because the values to be converted must be less than 
60. A binary value is divided by 10 repeatedly until the quotient is less than 10. The 
remainder of the division is the least significant digit, and the quotient is the most 
significant digit. 
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This conversion occuppies locations 4CBE - 4CC7. A time value from the 
address given in the DE register is fetched into the A register and divided by 10 by 
means of a compound subtraction. As the subtraction takes place, the quotient is 
accumulated by counting the number of subtractions as an ASCII value in the 
address pointed to by the HL register. This location has been initialized to a 2F, 
so that each addition yields the ASCII value for a decimal digit starting with 0, 1, 
and so on. 

When the subtraction loop completes, the A register contains the negative 
remainder, which is converted to a decimal- ASCII value by the addition of a 3 A. 
The sum is then stored at the address next to the quotient. Next, the B register is 
decremented, and if zero, control is returned toy the caller (clock interrupt 
processor). If the B register is non-zero, the address in the HL is incremented, and 
an ASCII ':' is stored there. The HL address is incremented again, and the 
conversion loop is re-entered to convert the next value. 

3.4.12 Keyboard Driver 

During system initialization, the address for the keyboard driver is replaced 
with the address of another driver which is resident in the nucleus. This driver is 
used in place of the ROM driver because it has better 'debounce' processing. 

Debounce is the elimination of unintentional repeating of a character. It is a 
problem on the Model I systems because the keyboard driver may be called to scan 
the keyboard repeatedly, and because of the keyboard used, the last character 
processed may still be active. The problem varies with the typist. Some have it 
worse than others because they take longer to lift their fingers from the keys. If a 
keyboard strobe occurs while the last active key is being released, the character will 
be repeated. 

The LEVEL II keyboard driver occupies locations 03E3 thru 0457. It uses a 
translation table located at 0050 - 005F in ROM, a DCB at addresses 4015 - 
401 A, and a row history buffer at 403D - 403C. 

The keyboard is memory-mapped into addresses 3801, 3802, 3804, 3808, 
3810, 3820, 3840 and 3880. Whenever a key is struck, a bit in a byte at one of 
those addresses is turned on. When the word is read (fetched) by the driver, it is 
reset to zero. 

The row history buffer is used to keep track of the last active key which was 
detected. This is an important point. When the driver is entered, the keyboard 
memory addresses are read and compared to their previous values recorded in the 
row history buffer. After the comparison, the new value replaces the previous one. 
If a difference is detected, the active row is processed. A key, which is held down 
and never released, is not detected on successive calls to the driver because of row 
history buffer. Every time the active row is compared to the history buffer, an 
exact match is found, and no processing takes place. This is the reason that 
keystrokes cannot be repeated by holding down a key. 
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The TRSDOS keyboard driver begins at 43D8. Upon entry the driver tests for 
an active key. If none is found, the driver returns to the caller. It is the 
responsibility of the caller to make repetitious calls in order to construct a 
complete record. 

When an active row is found, the debounce routine is called. This subroutine 
delays for about 40 milliseconds before retesting the active row. If the row is 
inactive after retest, the first detection is considered invalidf, and control is 
immediately given back to the caller. If it is still active, the row index and the 'on' 
bit position within the row are translated into an upper case ASCII value by means 
of a computation or through a table look-up, depending on the row number. 
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4.0SYS1/SYS 

We can think of SYSO as the 'heart' of TRSDOS because it provides the basic 
functions that the rest of the system needs in order to function. Using a similiar 
analogy, SYS1 can be considered the 'brains' of TRSDOS because it scans all 
command input lines and decides what action to perform. Consequently, SYSl is 
called the command line intrepreter. 

Command lines must be distinguished from input lines for applications 
programs. For example, after the system is initialized (IPL'd), SYSl is loaded to 
post a read to the keyboard for a command line. That means the next line read 
from the keyboard is assumed to be a system command of some sort which is to be 
processed by SYSl. 

By contrast, if a BASIC program is executed, and it posts a read to the keyboard, 
the response would be processed by the BASIC program as data rather than by 
SYSl as a command line. The point is that not all data read through the keyboard 
is processed by SYSl. 

When the operating system has control of the machine because there is nothing 
for it to do (it is waiting for the next command), SYSl is the part of the system that 
is active. 

As soon as a line is entered on the keyboard (return key is struck), SYSl 
examines the line to determine if it is: 

1. A TRSDOS command such as DATE, TIME, DIR, etc. 

2. The name of a file that exists in the directory. The file name in the 
directory must have a suffix 'CMD'; however, the command line need 
not specify any suffix. 

If a TRSDOS command is detected, it is processed by SYSl or SYS6, depending 
on the command. System utilities, such as BACKUP or BASIC, are treated the 
same as program file loads described below. 



TRSDOS 2.3 Decoded 63 



SYS1/SYS 



Commands not recognized as system commands are assumed to be a request to 
load and execute a file name that matches the command. Thus, a command of 
XXX, for example, is considered to be a request to load and execute the file 
XXX/CMD. If the file does not exist, the messsage FILE NOT FOUND is 
displayed, and another read for a command is posted to the keyboard. 

If the file exists, but it is not a binary load module, the messsage FILE LOAD 
ERROR would be displayed, and another keyboard read would be posted. 

If XXX/CMD exists as a loadable binary module, it would be loaded, and 
control would pass from SYSl to XXX. When XXX had completed processing, it 
would jump to 402D in the nucleus. This would result in SYSl being reloaded and 
executed. Naturally, it would begin by posting a read for the next command, and 
the entire cycle would be repeated. 

A diagram illustrating SYSl processing in relation to command execution is 
shown below. 



Figure 4.1 Command Processing Flow 
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There are six entry points into SYS1. Three of them interpret a command line, and 
three perform functions used by SYS6, as well as SYSl. The options parsed in the A 
register for entry points are described below: 



Figure 4.2 Entry Point Options 



SYSl OPTIONS 
10 



Function 



20 
30 

40 

50 
60 



Read next command from keyboard 
and process. 

Same as above. 

Intrepret command in command line 
buffer. 

Move string to DCB and validate 
as a filename 

Add suffix to command. 

Parse parameter list. 



SYSl begins by isolating the options field of the request code and branching to 
the corresponding entry point. The following code is used for this operation: 



Figure 4.3 SYSl Code From 4 E00 to 4 El E 



70H 
10H 

Z,4E1FH 
20H 



4E00 


E670 


AND 


4E02 


FE10 


CP 


4E04 


CA1F4E 


JP 


4E07 


FE20 


CP 


4E09 


2814 


JR 


4E0B 


FE30 


CP 


4E0D 


283F 


JR 


4E0F 


FE40 


CP 


4E11 


CA564F 


JP 


4E14 


FE50 


CP 


4E16 


CAC04F 


JP 


4E19 


FE60 


CP 


4E1B 


CA7D50 


JP 


4E1E 


C9 


RET 



Z,4E1FH 

30H 

Z,4E4EH 

40H 

Z,4F56H 

50H 

Z,4FC0H 

60H 

Z,507DH 



Isolate option 

Test for option 10 

Read next command and process 

Test for option 20 

Read next command and process 

Test for option 30 

Reprocess command line buffer 

Test for option 40 

Copy and Edit file name 

Test for option 50 

Add suffix to file name 

Test for option 60 

Parse command list 

Unknown option. Return to caller 
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4.1 Request Code 10, 20, and 30 

The processing for options 10 and 20 begins at 4E1F. Processing begins by 
enabling interrupts and intializing the stack pointer to an empty stack (41FE). 
The latter is an important point. It means that the stack cannot run away because 
of a bug in an overlay or utility which is executed repeatedly, and it also means that 
parameters cannot be passed betweeen overlays via the stack. 

The instructions at 4E23 and 4E26 are dead; they serve no purpose. 

Starting at 4E28 is the first of several tests of the system conditions flags. The 
byte containing those flags has the following format: 



Figure 4.4 System Condition Flags 



■ ■ ■ ■ I 



L± 



I - LEVEL II 
1 - TRSDOS 



Reserved 



RUN Not Active 
RUN Active 



■ Reserved 



, - SYS6 Not Loaded 

1 - SYS6 Loaded 

- Program Chaining Inactive 

1 - Program Chaining Active 

, - PROT Allowed 

1 - PROT Disallowed 



, - DEBUG Inactive 
1 - Debug Active 



The first test is made to determine if a DEBUG command has been processed 
previously (Bit 7 of 430F non-zero, DEBUG is active). If so, the DEBUG flag at 
4315 will be set non-zero. This will cause DEBUG to be loaded if a BREAK key 
is detected during interrupt processing. This code is necessary because prior to 
entering an overlay, the loader clears the DEBUG flag at 4315. Thus, DEBUG 
will not be loaded when executing SYSl/SYS - SYS6/SYS. 

If the DEBUG bit in 430F is not set, or, following the processing if it is set, bit 
5 of the system condition flag is tested. This test is also unnecessary as bit 5 is never 
set, so the jump to 4E40 is always taken. The instructions at 4E38 - 4E3D are 
dead. 

Beginning at 4E40, the message 'DOS READY' is displayed, followed by a 
keyboard read for the next command line. The keyboard read specifies the 
command line buffer at 43 18 as the input buffer, and a maximum of 63 characters 
for the command length. Shown below is the code used for these operations. 
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Figure 4.5 SYSl Code From 4 El F to 4 E4B 



* 
* 
* 


Beg 


in processing for op 


4E1F 


FB 


EI 




4E20 


31FC41 


LD 


SP,41FCH 


4E23 


215943 


LD 


HL,4359H 


4E26 


CB6E 


BIT 


05H, (HL) 


4E28 


2A0F43 


LD 


HL, (430FH) 


4E2B 


CB7E 


BIT 


07H,(HL) 


4E2D 


2805 


JR 


Z,4E34H 


4E2F 


3EC3 


LD 


A f 0C3H 


4E31 


321543 


LD 


(4315H) r A 


4E34 


CB6E 


BIT 


05H, (HL) 


4E36 


2808 


JR 


Z,4E40H 


4E38 


3A4038 


LD 


A / (3840H) 


4E3B 


E604 


AND 


04H 


4E3D 


C23040 


JP 


NZ,4030H 


4E40 


21B851 


LD 


HL,51B8H 


4E43 


CD6744 


CALL 


4467H 


4E46 


211843 


LD 


HL,4318H 


4E49 


063F 


LD 


B r 3FH 


4E4B 


CD4000 


CALL 


0040H 



Allow interrupts 

Reset stack pointer 

This instruction not used 

This instruction not used 

System condition flag 

Is DEBUG active 

Jump if no 

Else, construct a 

JP XXXX instruction at 4315 

Test for program chaining 

Jump if no 

Get keyboard row - 

Test for break 

Go recall SYSl with option 2 if so 

Address of DOS READY message 

Write DOS READY to video 

Address of command line buffer 

Max no. of key strokes allowed 

Get next command from keyboard 



Following the keyboard read, control returns to 4E4E. This is also the entry 
point for a SYSl call with request option 30. When control passes to this address, 
the command is assumed to exist in the command line buffer at 4318. 

Command line intrepretation begins at 4E4E. It consists of four steps. First, the 
command line is copied to the system DCB at 4480. Second, the command is 
compared to a list of TRSDOS commands embedded in SYSl. If there is no match, 
the third step is taken: the command is compared to a list of TRSDOS commands 
embedded in SYS6). If this test fails, the fourth step is taken: a CMD suffix is 
added to the command line in the system DCB, and a subroutine in the nucleus is 
called to load and execute the file. 

If the command line matches any of the SYSl or SYS6 commands, it is executed 
directly. SYSl commands are executed by jumping to the code for the requested 
operation. Commands in SYS6 are executed after SYS6 has been loaded. A 
command index is passed to SYS6 in the C register indicating which operation is 
to be performed. 

At 4E4E a return address of 402D is PUSH'ed onto the stack. If 4E4E was 
entered from the code above, as opposed to a request code 30 call, 402D will be the 
only address on the stack, because the stack pointer was initialized at 4E20. If 
4E4E was entered because of a request code 30, the return address on the stack for 
the SYSl call will be preserved; however, this does not mean that control can be 
returned to that point, as 402D (which will be POP'ped first) will cause SYSl to 
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be called with a request code 10, which, as was mentioned earlier, rewinds the 
system stack, causing any residue to be lost. 

Continuing on, at 4E52 preparations are made to call a subroutine at 4F56 to 
copy the command line to the system DCB. This is done in anticipation that the 
incoming command will be a file load (any command not embedded in SYS1 or 
SYS6). 

4F56 is entered with two parameters. The DE register contains the DCB 
address, and the HL register contains the address of the command line buffer. 
4F56 begins by saving the DCB address (DE register), so it can be restored upon 
exit. It then calls another subroutine at 4FF4 to copy the command to the system 
DCB. 

The subroutine at 4FF4 terminates when the specified number of characters 
have been copied (eight in this case), or when an illegal character is detected. When 
control returns to 4F5C, the character that the copy terminated on is tested to 
determine the next action to be taken. If, for example, the file name is followed by 
a '/,' an extension is assumed, and it too is copied. If it is followed by a '(.),' a 
password is assumed, and it also is copied. 

Proceeding down through 4F56, 4F78 is eventually reached, where a test for a 
drive specification is made. If one is present, it will also be copied. Finally, the end 
of the command that has been copied to the DCB is marked with an 03 at 
4F86/4F88. 

The instructions at 4F89/4F8A are unnecessary. At 4F8B/4F8C, the 
beginning address of the DCB is restored to the DE register set. At 4F8D and 
4F90, preparation for (and a call to) an interesting subroutine at 502A is made. 

Although the subroutine at 502A will be described here, the call to it at 4F90 
when 4F56 has been called during SYSl processing is pointless, and in fact, can 
cause mysterious problems if an attempt to execute a file named "TO", "ON", or 
"OVER" is attempted. Files with these names can be created, but not executed 
because of a bug. 

By the time 4F40 is reached, the command line buffer has been copied to the 
system DCB. The normal thing to do, at this point, would be to return to the caller 
of 4F56 (in this case, the call came from 4E55), but instead, the subroutine at 
502A is called to compare the command to the three text strings: TO, ON, and 
OVER. This call is made because 4F56 can be entered directly in response to a 
request code 40 which tests for parameter seperators. SYS6 makes such a call to 
test for delimiters between file names in a copy statement. Unfortunately, if the 
command (now copied to the DCB), matches one of those text strings, the 
remainder of the command line buffer is copied into the system DCB, destroying 
the previous contents (the command line). Below is the code used for the 
subroutines 4F56 and 4FF4. 
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Figure 4.6 SYSl Code From 4F56 to 5029 



* 
* 

* 
* 

* 
* 

* 
* 



Begin processing for option 50. Copy string specified in 
HL to addr. specified in DE, Source string is assumed to 
be a file name. Dest. addr. is assumed to be a DCB. Source 
string is edited according to file name conventions e.g. no 
special characters etc. On exit, status register is zero if 
no errors were detected, otherwise it is non-zero. 



* HL= String address 

* B = No. chars, in string 

* DE= DCB Address 



4F56 


D5 


PUSH 


DE 


4F57 


0608 


LD 


B,08H 


4F59 


CDF44F 


CALL 


4FF4H 


4F5C 


203A 


JR 


NZ,4F98H 


4F5E 


FE2F 


CP 


2FH 


4F60 


2009 


JR 


NZ,4F6BH 


4F62 


12 


LD 


(DE),A 


4F63 


13 


INC 


DE 


4F64 


0603 


LD 


B,03H 


4F66 


CDF44F 


CALL 


4FF4H 


4F69 


203A 


JR 


NZ,4FA5H 


4F6B 


FE2E 


CP 


2EH 


4F6D 


2009 


JR 


NZ,4F78H 


4F6F 


12 


LD 


(DE),A 


4F70 


13 


INC 


DE 


4F71 


0608 


LD 


B,08H 


4F73 


CDF44F 


CALL 


4FF4H 


4F76 


202D 


JR 


NZ,4FA5H 


4F78 


FE3A 


CP 


3 AH 


4F7A 


2009 


JR 


NZ,4F85H 


4F7C 


12 


LD 


(DE),A 


4F7D 


13 


INC 


DE 


4F7E 


0601 


LD 


B,01H 


4F80 


CDF44F 


CALL 


4FF4H 


4F83 


2020 


JR 


NZ,4FA5H 


4F85 


4F 


LD 


C,A 


4F86 


3E03 


LD 


A,03H 


4F88 


12 


LD 


(DE),A 


4F89 


AF 


XOR 


A 


4F8A 


79 


LD 


A,C 


4F8B 


Dl 


POP 


DE 


4F8C 


D5 


PUSH 


DE 


4F8D 


01A74F 


LD 


BC,4FA7H 


4F90 


CD2A50 


CALL 


502AH 


4F93 


Dl 


POP 


DE 


4F94 


28C0 


JR 


Z,4F56H 


4F96 


AF 


XOR 


A 


4F97 


C9 


RET 





Save DCB address. 

No. of chars, to examine in string 

Look for /,; or . in cmd string 

Jump if no chars, copied to DCB 

Was it terminated by an extension 

Jmp, no extension specified 

Move / to DCB 

Bump to next location in DCB 

No. of characters to move 

Move extension to DCB 

Jump if no extension 

Was there a password present 

Jmp, no password 

Move . to DCB 

Bump to next position in DCB 

B = No. of Characters in password 

Move password to DCB 

Jump if no password present 

Was there a drive specification (:) 

No Jump if no, 

Yes. Move : to DCB 

Bump to next position 

Max. number of chars, in drive spec 

Copy drive specification to DCB 

Go if no drive number following : 

Save terminating characters 

Terminating character for DCB list 

To DCB 

Clear status flags 

Restore term. char, to A 

Restore orgin. of DCB to DE 

And save it on stack 

Addr. of TO, ON, OVER phrases 

Look for match 

Restore DCB address 

Jump if TO/ON/ OVER phrase found 

Signal good status and 

Return to caller 

Listing Continued . . 
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. . . Continued Listing 


4FF4 


LD 


A,B 


4FF5 


LD 


(5026H) ,A 


4FF8 


INC 


B 


4FF9 


LD 


A, (HL) 


4FFA 


CP 


03H 


4FFC 


JR 


Z f 502lH 


4FFE 


CP 


0DH 


5000 


JR 


Z,5021H 


5002 


INC 


HL 


5003 


CP 


30H 


5005 


JR 


C f 502lH 


5007 


CP 


3 AH 


5009 


JR 


C5013H 


500B 


CP 


41H 


500D 


JR 


C,5021H 


500F 


CP 


5BH 


5011 


JR 


NC,5021H 


5013 


DEC 


B 


5014 


JR 


Z,501EH 


5016 


LD 


(DE),A 


5017 


XOR 


A 


5018 


LD 


(5026H) ,A 


501B 


INC 


DE 


501C 


JR 


4FF9H 


501E 


INC 


B 


501F 


JR 


4FF9H 


5021 


LD 


C,A 


5022 


LD 


A,03H 


5024 


LD 


(DE),A 


5025 


LD 


A,00H 


5027 


OR 


A 


5028 


LD 


A,C 


5029 


RET 





No. of chars to examine 

Save No. of chars, to test 

Adjust for DEC at 5013 

Get next symbol from input buff. 

Was it a terminating character 

Jump if yes 

Test for Cr 

Jump if Cr 

Bump to next char. 

Was previous char, a spec, char. 

Jump, if yes 

Test for alphanumeric or special char 

Jump if numeric 

Test for alpha, or spec, symbol 

Jump if spec, symbol 

Test for upper case 

Jump if upper case 

Count one legit char found 

Jump if all tested 

Move to DCB in case it's a file name 

Signal one char, found 

Signal one char, copied 

Bump to next addr. in DCB 

Loop until end of input or 

specified # of char, copied 

Count 1 char processed 

Continue scan until char. found 

Save last char. 

Load list terminator 

End command with a 03 

Count of characters tested 

Set status flags for count 

Last character to A reg. 

Return to caller 
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Normally, the subroutine at 502 A is called to match the command in the system 
DCB against a list of SYSl, or SYS6 commands. The calling sequence is: DE - 
starting DCB address; BC - starting address of command list to search. The 
command list has the following format: 



Figure 4.7 Command List Format 



DEFM 
DEFW 

DEFM 
DEFW 



•TEXT01 
ADDR 1 

'TEXT02 1 
ADDR 2 



A six character keyword 
Address to be returned in 
DE register 



DEFB 



00 



List terminator 



On exit, HL contains its original value; the AF registers contain a zero or one 
depending on whether there was a match, or no match respectively; the C register 
contains the number of keywords compared; and if there was a match, DE contains 
the routine address following the keyword. 

The match subroutine can be divided into three sections. The first (502A - 
5041) looks for a match between the first character of the command and a 
keyword. The second (5042 - 5063) is called if the first one finds a match. It scans 
the remainder of the command looking for an exact match with the keyword. The 
third (5064 - 507B) is called by the second when the end of the command is 
reached. Commands may be terminated by a 03, or OD (carriage return). When a 
terminator is detected in the command line, the corresponding character in the 
keyword must be tested to insure it is a blank, otherwise a mis-match has occurred. 

Beginning at 502A, the HL register is saved, as it will be replaced by the BC 
register (command list address). Next, the count of keywords compared is 
initialized to one, and the first letter of a keyword is compared to the first letter of 
the command. If there is a match, control goes to section two (5042). 

If there is no match, the HL register pair is bumped by eight to skip to the next 
keyword in the list, the count of keywords compared is incremented, and a test for 
the end of the command list is performed. If the end of the list has not been 
reached, control goes to 502F, where the first letter of the next keyword is 
compared. The basic loop formed goes from 502F to 503C. If the end of the 
command list is reached with no match, the HL register is restored, and control 
returns to caller with a non-zero status. Following is the code used for this section: 
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Figure 4.8 SYSl Code From 502A to 5041 



* Compare list pointed to by BC against list pointed to by DE 
* 

Save input string addr. 

HL - Addr. of command 

Tables to search 

C = Number of lists searched 

Fetch a char. from search list 
Compare it to input string 
Jump if first char, matches 
No match. Go to next list 
Save caller's BC 
Add 8 to current list to 
get addr. of next list 
Restore caller's BC 
Bump count of lists searched 
Fetch 1st char, of next list 
test for end of list 
Loop, not end of list 

Restore caller's HL 
Signal no match 
Return to caller 



502A 


E5 


PUSH 


HL 


502B 


60 


LD 


H,B 


502C 


69 


LD 


L,C 


502D 


0E01 


LD 


C,01H 


502F 


1A 


LD 


A, (DE) 


5030 


BE 


CP 


(HL) 


5031 


280F 


JR 


Z,5042H 


5033 


C5 


PUSH 


BC 


5034 


010800 


LD 


BC, 0008H 


5037 


09 


ADD 


HL,BC 


5038 


CI 


POP 


BC 


5039 


0C 


INC 


C 


503A 


7E 


LD 


A, (HL) 


503B 


B7 


OR 


A 


503C 


20F1 


JR 


NZ,502FH 


503E 


El 


POP 


HL 


503F 


F601 


OR 


01H 


5041 


C9 


RET 





Section two is entered when a match has been found between the first letter of a 
keyword and the command. The B register is initialized to 5 (the number of 
remaining letters to be matched); the HL register (keyword list address) is saved, so it 
can be restored in case of a mis-match; and the same is done for the DE register 
(command list address). 

Next, the next letter from the command list is fetched and compared to an end of 
command terminator, (03 or OD). If a terminator is detected, control goes to 
section three. Otherwise, the letter is compared to the next letter in the keyword, 
and, if equal, the B register is decremented and tested for zero. If the B register is 
non-zero, control returns to 5046 (the start of the loop) where the next letter is 
fetched and tested. 

When the B register becomes zero, control falls through to 5056. Here the 
starting address plus one of the keyword addresses is restored, so the end of the 
keyword can be computed. This is necessary because the length of the particular 
command is not known. But since the maximum length of all keywords is known, 
the length of any particular command can be computed. 
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After locating the end of the keyword, the address of the code associated with 
the command is loaded into the DE. The DCB address is restored to the HL; a good 
status value is loaded into the A register, and control returns to the caller. Below 
is the code used for section two. 



Figure 4.9 SYS1 Code From 5042 to 5063 



* First char, 

5042 0605 

5044 E5 

5045 D5 



in list matches. Compare remainder of list. 



5046 
5047 
5048 
5049 
504B 
504D 
504F 
5051 
5052 
5054 



13 

23 

1A 

FE03 

2827 

FE0D 

2823 

BE 

2010 

10F0 



5056 Dl 

5057 79 

5058 CI 

5059 210600 
505C 09 
505D 4F 
505E 5E 
505F 23 

5060 56 

5061 El 

5062 AF 

5063 C9 



LD 

PUSH 

PUSH 

INC 

INC 

LD 

CP 

JR 

CP 

JR 

CP 

JR 

DJNZ 

POP 

LD 

POP 

LD 

ADD 

LD 

LD 

INC 

LD 

POP 

XOR 

RET 



B,05H 

HL 

DE 

DE 

HL 

A,(DE) 

03H 

Z,5074H 

0DH 

Z f 5074H 

(HL) 

NZ,5064H 

5046H 

DE 

A f C 

BC 

HL,0006H 

HL f BC 

C,A 

E,(HL) 

HL 

D, (HL) 

HL 



No. of chars, left to match 
Save input string addr. 
Save search list addr. Save 
starting addr. of command string 
Bump to next char, of input list 
and companion list 
Fetch a char, from input list 
Test for end of string 
Go if end of input string 
Else test for end of line 
Jump if end of input string 
Does char, match search list 
No, go test for ending byte 
Yes, loop to test next char, 
until all chars, tested 

DE = 2nd char, of matching 

search list 

A = No. of lists searched 

Starting addr. of matching cmd 

HL = Length of command 

HL = Ending addr. of command 

C = List number 

E = LSB of command addr. 

Bump to MSB 

D = MSB of command addr. 

HL = Starting addr. of 

input string 

Signal good status 

Return to caller 



The third section is entered when a terminating character is found in the 
command, or there is a mis-match between the keyword and the command. 

In the terminating character case, the next letter from the keyword is examined. 
If it is a blank, a match has been found, and control goes to 5056, where the proper 
exit is made (see above for a description of the code at 5056). 
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In the mis-match case, the current letter in the command is tested to determine 
if it is blank, '/,' '.,' ':,' '=,' or other special character. If so, control goes to 5074, 
where the test for end of keyword is made. Basically, these special characters are 
treated as terminators. 

If the current letter in the keyword is not a blank, the end of the keyword has not 
been reached, and control passes to 5079, where the DE register is restored to the 
beginning address of the command and the HL is set to the starting address of the 
keyword. Control then passes to 5034, where the HL register is bumped to the 
next keyword and testing resumes. This code covers the case where two commands 
have similar, but not identical, names. Following is the code used in section three: 



Figure 4.10 

* 


SYS I Code From 5064 to 507 B 


* 
* 

5064 


FE30 


CP 


30H 


5066 


380C 


JR 


C f 5074H 




5068 


FE3A 


CP 


3AH 




506A 


380D 


JR 


C,5079H 




506C 


FE41 


CP 


41H 




506E 


3804 


JR 


C,5074H 




5070 


FE5B 


CP 


5BH 




5072 


3805 


JR 


C,5079H 




5074 


7E 


LD 


A, (HL) 




5075 


FE20 


CP 


20H 




5077 


28DD 


JR 


Z,5056H 




5079 


Dl 


POP 


DE 




507A 


El 


POP 


HL 




507B 


18B6 


JR 


5033H Gel 



special char. 
> ? @) 



Was it a special char. 

(e.g. /.-+-*) 

Jump if yes 

No, was it a digit 0-9 

Jump if yes 

No, was it a 

(e.g : ; < = 

Jump if yes 

No, was it alpha A - z 

Jump if yes 

No, fetch current char. 

Is it a space 

Jump, if yes 
No, clear stack 
Restore input string addr. 
Get next list addr. and retest 



When control returns to 4F93, the system DCB address is restored and the 
status of the A register is tested. If it contains a zero, there was a match between 
one of the keywords in the list beginning at 4FA7 and the command. In that case, 
the remainder of the command line buffer is copied to the DCB. As noted before! 
this is an error, and this path is taken only when executing a command that 
matches one of the keywords in the list at 4FA7. 

A more likely exit, and the only correct one, is at 4F96 and 4F97, where a good 
status is signalled, and control returns to the caller (in this case 4E58). 

Returning to 4E58 (request code 10, 20, and 30 processing), the status register 
is tested. If non-zero, an illegal character was detected in the command string. 
Control will pass to 4E87, where the message "WHAT" will be displayed and 
SYS1 will be re-entered with a request code 20 (via 4030). 
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Assuming no illegal character terminated the command, a test for an '*' as the 
first character is made. This test is necessary because the subroutine at 4F56 will 
allow a special name consisting of an **' followed by two alphanumeric characters 
to be copied into the DCB. If the file name begins with an '*,' the "WHAT" prompt 
is displayed and SYSl is re-entered via a call to 4030. 

If there were no illegal characters in the command, it will be compared to a list 
of TRDOS commands. The subroutine at 502 A (described earlier) will be used for 
the comparison. 

The first test for a TRSDOS command is at 4E65. The test is made by calling 
a subroutine that compares a list of keywords against a fixed list (the command 
line). The keywords for this test are the embedded SYSl commands. The 
subroutine used for the comparison is located at 502A. 

Prior to calling 502A, the HL register is saved, and the BC register is loaded 
with the address of internal SYSl commands. These commands are processed 
entirely by SYSl. A description of this list follows. 



Figure 4.11 SYSl Internal Command Addresses 

ADDRESS OF KEYWORD KEYWORD ADDRESS OF ACTION ROUTINE 

4EA4 'BASIC2' 514C 

4EAC 'DEBUG * 5162 

4EB4 'TRACE ' 5191 



When control returns, a test for a match between the command and any entry in 
the list is made. If there is a match, control is passed to 4E84. 

At4E84, the current command line buffer address is restored to HL (this is really 
unnecessary since it was preserved by the subroutine call), and the address of the 
routine to be executed is PUSH'ed onto the stack (simulating a CALL instruction). 
Following that, a RET is executed, which passes control to the address associated 
with the keyword. 

If the command did not match any of the entries in the list at 4EA4 (SYSl 
commands), another call to 502A is made with a list of TRSDOS commands 
processed by SYS6. This list begins at 4EBD; it is described below. Again, upon 
return, a test for a match with any entry in the list is made, and, if true, control goes to 
4E84. 
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If the command does not match any of the SYSl or TRSDOS commands, it is 
assumed to be a filename. At 4E72, bit 4 of the system condition flag is cleared, 
indicating a user file load. Next, at 4E7A a call is made to a subroutine at 4FC0 
to add the CMD suffix to the filename in the DCB. At this point, the DE register 
contains the address of the system DCB holding the name of the file to be loaded. 
Control is now passed to the system file loader in the nucleus to load and execute 
the file. This is done by the jump at 4E81 to 4433. 4433 contains a second jump 
to 4C06. At 4C06, the file will be OPEN'ed, and its permission flags tested before 
the file is loaded and executed. Following is the code used for these operations: 



Figure 4.12 TRSDOS Command List 



ADDRESS OF KEY 


WORD KEYWORD 


COMMAND INDEX 


4EBD 


1 APPEND ' 


01 


4EC4 


'ATTRIB' 


02 


4ECD 


' AUTO ■ 


03 


4ED5 


'CLOCK ' 


04 


4EDE 


' COPY ' 


05 


4EE4 


'DATE ■ 


06 


4EED 


'DEVICE* 


07 


4EF5 


'DIR ' 


08 


4EFD 


' DUMP ' 


09 


4F05 


'FREE ' 


10 


4F0D 


'KILL ' 


11 


4F15 


'LIB ■ 


12 


4F1D 


'LIST • 


13 


4F25 


•LOAD ' 


14 


4F2D 


'PRINT ' 


15 


4F35 


' PROT ' 


16 


4F3D 


1 RENAME ' 


17 


4F45 


'TIME ' 


18 


4F4D 


•VERIFY' 


19 



Figure 4.13 SYSl Code From 4E4E to 4EA3 



4E4E 012D40 


LD 


BC,402DH 


4E51 C5 


PUSH 


BC 


4E52 118044 


LD 


DE f 4480H 


4E55 CD564F 


CALL 


4F56H 


4E58 C2874E 


JP 


NZ,4E87H 


4E5B 1A 


LD 


A, (DE) 


4E5C FE2A 


CP 


2AH 


4E5E CA874E 


JP 


Z,4E87H 


4E61 E5 


PUSH 


HL 


4E62 01A44E 


LD 


BC,4EA4H 
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Return point in SYS0 

To stack 

Address of system DCB 

Move file name to DCB (command line) 

Go if illegal char, found 

Fetch first character of command 

Test for * 

Go if command starts with * (error) 

Save end position in command list 

Address of SYSl commands 

Listing Continued . . . 



Request Code 40 



Continued Listing 






4E65 


CD2A50 


CALL 


502AH 


4E68 


281A 


JR 


Z,4E84H 


4E6A 


01BD4E 


LD 


BC,4EBDH 


4E6D 


CD2A50 


CALL 


502AH 


4E70 


2812 


JR 


Z,4E84H 


4E72 


3A0F43 


LD 


A, (430FH) 


4E75 

ie 


CBA7 


RES 


04H,A 


* 


Command is 


neither SYS '. 


* 

1t 


Add CMD 


suffix 


to command < 


4E77 


320F43 


LD 


(430FH) ,A 


4E7A 


21B551 


LD 


HL,51B5H 


4E7D 


CDC04F 


CALL 


4FC0H 


4E80 


El 


POP 


HL 


4E81 


C33344 


JP 


4433H 


4E84 


El 


POP 


HL 


4E85 


D5 


PUSH 


DE 


4E86 
* 


C9 


RET 




* 

* 

4E87 


21C351 


LD 


HL,51C3H 


4E8A 


CD6744 


CALL 


4467H 


4E8D 


C33040 


JP 


4030H 


4E90 


3A0F43 


LD 


A, (430FH) 


4E93 


CB67 


BIT 


04H,A 


4E95 


C20052 


JP 


NZ,5200H 


4E98 


3A0F43 


LD 


A, (430FH) 


4E9B 


CBE7 


SET 


04H,A 


4E9D 


320F43 


LD 


(430FH) ,A 


4EA0 


3E88 


LD 


A,88H 


4EA2 


F5 


PUSH 


AF 


4EA3 


EF 


RST 


28H 



Test for SYS1 cmd 

BASIC2/DEBUG/TRACE 

Jump if SYS1 command. Execute CMD 

Else load addr. of other DOS commands 

Compare current command against 

list of SYS6 commands 

Jump if a match found 

Fetch system condition flag 

Clear SYS6 loaded flag 

1 nor SYS 6 command. 



Restore updated condition flag 

Address of CMD message 

Add CMD suffix to file name 

Clear DCB address from stack 

Enter routine to load and execute file 

Clear stack 

SYS1 addr for DOS cmd to stack 

Go to SYS1 addr for DOS command. 

(514C f 5162, 5191, or 4E90) 



Address of "WHAT" message 

Print "WHAT" 

Go wait for next command 

Get system condition flags 

Test if SYS6 currently loaded 

Jump if yes 

Else reload system condition flag 

And clear SYS6 loaded flag 

Restore system condition flags 

DOS overlay req. for SYS6 option 

Dummy push for overlay loader 

Load and execute SYS6 



4.2 Request Code 40. 

This entry point begins at 4F56. It is used to edit a command line while moving 
it to a DCB. The address of the command line is given in the HL register, and the 
DCB address is given in the DE registeer. A complete description of this function 
may be found in Section 4.1 
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4.3 Request Code 50. 

This entry point begins at 4FC0. It is used to add a suffix to a file name. The 
code is generalized to the point where the file name may already contain a suffix, 
a password, or a drive specification. 

The entry conditions are: DE contains the address of the DCB. HL contains the 
address of a three letter suffix. The code begins by saving the DE and HL, and then 
exchanging them. 

At 4FC4 preparations are made to scan the 9 characters of the file name for a 
'/,' ':,' '.,' or end of name (03 or OD). The scan loop starts at 4FC6 and extends 
through 4FD6. If a V is detected (test at 4FC7 - 4FC9), control returns to the 
caller without adding the suffix, since the file already has one. 

Following the test for a '/,' is an indirect test for a '.'(password) followed by 
aother indirect test for a ':.' If either condition is true, or if the end of the name is 
reached (usually terminated by an 03) control goes to 4FDB where the suffix is 
added to the file name. If a file name of 9 characters is found, control returns to the 
caller without adding the suffix. 

The code from 4FDB through 4FF3 adds the suffix to the file name. This code 
expects the HL register to point to the position in the name where the suffix is to 
be added. Because a password, or a drive specification may follow the file name, all 
characters following the name must be moved down to create a space for the suffix. 

This code can best be understood with the aid of the following diagram. 



Figure 4. 14 DCB Positioning for Adding Suffix 



DCB CONTENTS DCB CONTENTS DCB CONTENTS 
ON ENTRY AFTER 1S T LDDR AFTER 2ND LDDR 

N N N 

N N N 

N N N 

N N N 

N N N 

N N N 

N N N 

HL on entry N N n 

P P E 
A Ax 
S ST 
S 

W P P 

A A 

S S 

S S 

W H 

Computed HL EOfl O 

" R R 

D D 



Computed DE x y D D 

X X 

X X 

X X 

X X 

X X 

X X 

X X 

X X 
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On entry, HL points to the exact position where the suffix is to be added. From 
that point on the remainder of the file name must be moved down 4 places. At 
4DFE, a new value for the HL register is computed. Since a LDDR instruction will 
be used to move the remainder of the file name down, the ending address for the 
existing name must be computed. Because the exact length of the rest of the name 
is not known, a maxiumum length of 15 is assumed. This value is added to the HL 
register at 4FDE, giving the computed HL shown in the illustration above. 

The computed HL is then copied to the DE register and incremented by four. 
This gives the destination address for the block move. It is four bytes beyond the 
end of the file name. Next, the C register is incremented to give the number of 
bytes to move (16 in this case), and the block move instruction is executed giving 
the 'after 1st LDDR' picture shown above. 

Next, the starting address of the suffix is loaded and the HL register set. It must 
be incremented twice to point to the end of the suffix, because an LDDR 
instruction will be used to copy it to the DCB. The LDDR instruction at 4FED 
copies the suffix into the DCB. This instruction is used because the DE register is 
already pointing to the ending character position for the suffix in the DCB. After 
the LDDR instruction has been executed, the DCB appears as shown in the 'after 
2nd LDDR' in the illustration above. Finally, a Vis inserted between the first part 
of the file name and the suffix, the DE is restored to the DCB address and control 
returns to the caller. Below is the code used for this processing: 



Figure 4.15 SYS1 Code From 4FCU to 4FF3 



Begin processing fo 
name in DCB. Skip t 
file name before dr 
file name down 4 po 
Add CMD suffix, if 
not add suffix 



* 
* 

* 

4FC0 D5 

4FC1 E5 

4FC2 EB 

4FC3 23 

4FC4 0609 

4FC6 7E 

4FC7 FE2F 

4FC9 280D 

4FCB 380E 

4FCD FE3A 
4FCF 3804 
4FD1 FE41 
4FD3 3806 

4FD5 23 
4FD6 10EE 



r option 50. Add /CMD suffix to file 
o end of file name (find last char of 
ive specification) . Move all chars after 
sitions (create a hole for /CMD suffix) . 
a / is detected following file name do 



PUSH 


DE 


PUSH 


HL 


EX 


DE,HL 


INC 


HL 


LD 


B,09H 


LD 


A, (HL) 


CP 


2FH 


JR 


Z r 4FD8H 


JR 


C4FDBH 


CP 


3 AH 


JR 


C4FD5H 


CP 


41H 


JR 


C4FDBH 


INC 


HL 


DJNZ 


4FC6H 



Save DCB addr. 

Save appendage list 

DE = appendage list. HL = DCB addr 

Point to the 2nd char, in DCB 

Max.# of char. to test. 
Get a char. from DCB 
Test for / (extension) 
Go if / found (don't add suffix) 
Or go if special char, 
found (do not add suffix) 
Test for : (drive spec.) 
Jump if numeric found 
Test for letter 
Jump if not letter. End of 
file name in DCB (03) assumed 
We have a letter. Bump to next 
char. & loop till all examined 

Listing Continued . . . 
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. . . Continued Listing 






4FD8 


El 


POP 


HL 


4FD9 


Dl 


POP 


DE 


4 FDA 
* 

* 


C9 


RET 




* 
4FDB 


010F00 


LD 


BC,000FH 


4FDE 


09 


ADD 


HL,BC 


4FDF 


54 


LD 


D,H 


4FE0 


5D 


LD 


E,L 


4FE1 


13 


INC 


DE 


4FE2 


13 


INC 


DE 


4FE3 


13 


INC 


DE 


4FE4 


13 


INC 


DE 


4FE5 


03 


INC 


BC 


4FE6 


EDB8 


LDDR 




4FE8 


El 


POP 


HL 


4FE9 


23 


INC 


HL 


4FEA 


23 


INC 


HL 


4FEB 


0E03 


LD 


C r 03H 


4 FED 


EDB8 


LDDR 




4FEF 


3E2F 


LD 


A,2FH 


4FF1 


12 


LD 


(DE),A 


4FF2 


Dl 


POP 


DE 


4FF3 


C9 


RET 





Restore appendage list addr. 

Restore DCB addr. 

Return to caller w/o adding suffix 



BC = 15, max distance to end of DCB 

Compute addr. of last byte used 

DE = last byte 

used in DCB 

Now, add 4 to last used 

addr. so we can move 

file name down to create 

A "hole*' for the /CMD suffix 

BC = number of bytes to move down 

Move data after file name down 4 

HL = start addr. of CMD text 

Skip to 

end of list for LDDR instr. 

C = number of chars, to copy 

Copy CMD text to DCB 

A = "1" 

Separate file name & suffix with ■/' 

Restore start of DCB addr. 

Return to caller 



4.4 Request Code 60 

This entry point begins at 507D and continues through 514A. It is called from 
places outside of SYS1 (usually SYS6) to parse parameters enclosed in 
parenthesis. 

On entry, HL points to a parameter list that must start with a space ona'(.' DE 
points to a command list whose format is indentical to that used in SYS1. Fields 
within the parentheses may be seperated by a comma or equal signs. If a comma is 
found at the end of field, another field is presumed to follow, and it will be 
processed as well. Equals are assumed to precede a numeric value which is to be 
converted to binary. Hexadecimal values must be preceded with an 'X,' otherwise, 
a decimal field is assumed. 

Control returns to the caller when the closing parenthesis is found, or if a left 
parenthesis is not found at the start of the command string. The A register will 
contain a zero if a closing parenthesis was found. Any error will force control back 
to the caller with a non-zero status. 
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A match between the interior of the parenthesis and the command list is 
signalled to the caller by returning a FFFF at the address specified after the 
keyword. If the matching field is followed by an equals sign, the numeric value 
following the equals sign will be returned instead of an FFFF. Note, this is a 
slightly different use of the address following keywords as compared to command 
lists embedded in SYS1. 

Starting at 507 D is a series of tests for a carriage return, right parenthesis, or a 
space. Spaces are ignored, and if found, the HL is advanced to the next character 
in the command string and the tests are re-executed. A carriage return will 
terminate the subroutine. 

When a right parenthesis is found, control goes to 508E, where the caller's DE 
is saved and preparations are made to call 4FF2 to copy the next six characters 
into an intermediate buffer at 51AF. At 5091, 4FF2 is called to copy the next 
field to the intermediate buffer. Upon return, the command string pointer is 
backspaced to point to the terminating character and the caller's command list 
address is restored to the DE register set. 

If no characters were copied, an error has occurred, and control is returned to the 
caller with a non-zero status. Otherwise, the caller's command list address is saved 
on the stack once again, and copied into the BC register set. 

Next, at 509E, the intermediate buffer address (51AF) is loaded into the DE 
register, and the subroutine at 50A2 is called to determine if there is a match 
between the buffer and the caller's command list. If there is a match, the DE 
register is restored at 50A6 and control returns to the caller with a non-zero 
status. 

If a match did occurr, the terminating character is compared to an equals sign 
(this happens at 50A9). If the terminating character is an equals sign, control goes 
to 50C1, where a numeric field is processed. 

If the field was not terminated with an equals sign, an FFFF is stored at the 
address carried in the command list. This address will be left in the DE register by 
the subroutine at 50A2 if there is a match. The code from 50AE through 50B4 
stores a FFFF at the address specified in DE. 

Following that, the terminating character is retested for equaling a comma. If it 
is a comma, control goes to 508E, where the next field is extracted and processed. 

Thus, multiple fields within a set of parentheses can be processed. Note that the 
origin of the caller's command list address is preserved at 508E and restored at 
50B5; thus the fields can be in any order. 

If the termrinating character was not a comma, it is compared to a right 
parenthesis. If it is a '),' the HL register is incremeted to the first character beyond 
the terminal character, the A register status is set to zero (good status), and control 
returns to the caller. If it does not match, control is returned to the caller with a 
non-zero status. 

Quantitities following an equals sign are processed at 50C1. There are three 
possibilities for these quantities. Hexadecimal values are one; they must be 
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preceded by an 'X.' Decimal values are another, they must begin with a digit in the 
range - 9; the third possibility is the quantity YES, NO, or OFF. 

Beginning at 50C1, the first character following the equals is tested. If it is an 
'X' (hex value follows), control is passed to 50D2. If it is a digit - 9 (decimal value 
follows), control goes to 50DA. If it is neither, a subroutine at 50DF is called to 
test for a 'Y,' 'N,' or 'OF.' This subroutine returns the following values in the BC 
register depending on the next character in the command: Y, BC = FFFF; N, BC 
= 0000; OF, BC = 0000; no match, BC = 0000. 

After a %' 'N,' or 'OF' has been located, a loop from 50FA to 5 102 will scan the 
command list until a right parenthesis or comma is detected. At that point, control 
will be returned to the caller. 

The code at 50D2 calls a subroutine at 5 1 IF to convert an ASCII string to a hex 
value. When control returns from 51 IF, an error check is performed. If there was 
no error, control goes to 50B0, where the hex value is saved and the rest of the 
command string is processed. If an error occurred, control is returned to the caller 
with a bad status (non-zero) via the return sequence at 50A6. 

The code at 50DA is executed if a decimal value follows an equals sign. It is 
functionally equivalent to the code at 50D2, except that it calls a subroutine at 
5104 to convert ASCII to decimal. 

The ASCII-to-decimal and ASCII-to-hexadecimal subroutine at 5104 and 
51 IF will not be discussed in detail. Both expect the HL register to point to the 
ASCII string to be converted, and both leave the binary equivalent of the value in 
the DE register. Following is the code used for request code 60: 



Fi 


gure 4.16 


SYS1 Code From 


507 D to 51 4 A 




* 
* 
* 





Begin processing for option 60 parse 


507D 


7E 


LD 


A, (HL) 


Get a character 


507E 


FE0D 


CP 


0DH 


Test for end of line (C.R.) 


5080 


C8 


RET 


Z 


Exit if a n CR" found 


5081 


FE28 


CP 


28H 


Test for left parenthesis 


5083 


2809 


JR 


Z,508EH 


Jump if ■(" 


5085 


FE20 


CP 


20H 


Test for space 


5087 


2802 


JR 


Z,508BH 


Jump if space 


5089 


B7 


OR 


A 


Set status flags 


508A 


C9 


RET 




Return to caller 


508B 


23 


INC 


HL ! 


Bump to next char. 


508C 


18EF 


JR 


507DH 


Go test again 


508E 


D5 


PUSH 


DE 


Save caller's cmd list addr 


508F 


0606 


LD 


B,06H 


B = Number of chars, to copy 


5091 


11AF51 


LD 


DE f 5lAFH 


Buffer addr. 


5094 


23 


INC 


HL 


Bump to first char, after "(" 


5095 


CDF44F 


CALL 


4FF4H 


Copy 6 chars or until ")" found 


5098 


2B 


DEC 


HL 


Backspace over terminating 03 

Listing Continued . . . 
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. . . Continued Listing 

5099 Dl POP DE 

509A C0 RET NZ 

509B D5 PUSH DE 

509C 42 LD B,D 

509D 4B LD C,E 

509E 11AF51 LD DE f 51AFH 

50A1 CD2A50 CALL 502AH 

50A4 2802 JR Z,50A8H 

50A6 Dl POP DE 

50A7 C9 RET 



Restore caller's DE 

Exit if no chars, copied (error) 

Save caller's DE 

Caller's command list table 

Addr. to BC for routine at 502A 

Parsed command line 

Look for cmd in caller's cmd list 

Jump if a match found 
Restore caller's DE 
Return with error status 



50A8 7E 
50A9 FE3D 
50AB 2814 
50AD 01FFFF 
50B0 79 

50B1 12 
50B2 13 
50B3 78 
50B4 12 
50B5 Dl 

50B6 7E 

50B7 FE2C 
50B9 28D3 
50BB FE29 
50BD C0 
50BE 23 
50BF AF 
50C0 C9 
50C1 23 



50C2 
50C3 
50C5 
50C7 
50C9 
50CB 

50CE 

50D0 

50D2 

50D3 

50D6 

50D8 

50DA 

50DD 

* 

* 



7E 

FE58 

280B 

FE41 

380F 

CDDF50 

28E0 

18D4 

23 

CD1F51 

28D8 

18CC 

CD0451 

18D1 



LD 
CP 
JR 
LD 
LD 

LD 

INC 

LD 

LD 

POP 

LD 

CP 

JR 

CP 

RET 

INC 

XOR 

RET 

INC 

LD 

CP 

JR 

CP 

JR 

CALL 

JR 

JR 

INC 

CALL 

JR 

JR 

CALL 

JR 



50DF 010000 
50E2 7E 
50E3 FE59 



A, (HL) 

3DH 

Z,50C1H 

BC,0FFFFH 

A,C 

(DE) f A 
DE 
A,B 
(DE),A 
DE 

A,(HL) 

2CH 

Z,508EH 

29H 

NZ 

HL 

A 

HL 

A, (HL) 

58H 

Z,50D2H 

41H 

C r 50DAH 

50DFH 

Z,50B0H 

50A6H 

HL 

511FH 

Z r 50B0H 

50A6H 

5104H 

50B0H 



Refetch char, from input string 

Compare it to an = 

Jump if = 

Value returned if no = parameter 

Save LSB of addr. 

or hex value 

In buffer 

Bump to next loc. 

Get MSB of addr. 

and save in buffer 

Restore caller's 

command list address 

Refetch Char, from 

input string 

Compare with ' 

Jump if ' 

Not ' , compare it to a ) 

Exit if not a ) 

Bump to next char. 

Signal good status 

Return to caller 

Bump to first char. 

after = 

Fetch char. 

Test for X (hex flag 

Go convert if hex value 

Test for digit 

Jump if digit 

Alpha, go test for N, Y, OF 

Jump if N, Y, or OF found 
Error, return to caller 
Bump to next char. 
Convert ASCII hex to binary 
If no error save hex value 
Else, return to caller 
Go get decimal value 
and return to caller 



Test for YES, NO or OFF parameter 



LD 
LD 
CP 



BC,0000H Signal N,Y,or OF 

A,(HL) Fetch first symbol past " 

59H Test for Y 



(' 



or = 



Listing Continued . 
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50E5 


2810 


JR 


Z,50F7H 


Jump if Y 


50E7 


FE4E 


CP 


4EH ] 


No, test for N 


50E9 


280F 


JR 


Z,50FAH Jump if N 


50EB 


FE4F 


CP 


4FH ] 


Not Y/N, test for 


50ED 


C0 


RET 


NZ ] 


Return if not 


50EE 


23 


INC 


HL 1 


Char, is 0, bump to next char 


50EF 


7E 


LD 


A, (HL) ] 


Fetch char, after 


50F0 


FE46 


CP 


46H i 


\nd test for F 


50F2 


2806 


JR 


Z,50FAH , 


Jump if OF found 


50F4 


FE4E 


CP 


4EH ] 


Not F, test for N 


50F6 


C0 


RET 


NZ ] 


Return if ON 


50F7 


01FFFF 


LD 


BC,0FFFFH Signal ON 


50FA 


23 


INC 


HL 


Bump to next input string char 


50FB 


7E 


LD 


A, (HL) 


Fetch next char. 


50FC 


FE29 


CP 


29H 


Test for ■) " 


50FE 


C8 


RET 


Z 


Return if ) 


50FF 


FE2C 


CP 


2CH 


Test for n ," 


5101 


C8 


RET 


Z 


Return if , 


5102 


18F6 


JR 


50FAH 


Loop until ) or , found 


* 
* 


— 


— ASCII to binary conversion routine 


5104 


010000 


LD 


BC,0000H Clear accumulator 


5107 


7E 


LD 


A, (HL) 


Fetch an ASCII character 


5108 


D630 


SUB 


30H 


Get its decimal equivalent 


510A 


D8 


RET 


c 


Exit if not a digit 


510B 


FE0A 


CP 


0AH 


Test for value greater than 9 


510D 


D0 


RET 


NC 


Exit if char, greater than 9 


510E 


E5 


PUSH 


HL 


Save input string addr. 


510F 


60 


LD 


H,B 


HL = Accumulated 


5110 


69 


LD 


L f C 


Value, thus far 


5111 


29 


ADD 


HL,HL 


Value, * 2 


5112 


29 


ADD 


HL,HL 


Value, * 4 


5113 


09 


ADD 


HL,BC 


Value, * 5 


5114 


29 


ADD 


HL,HL 


Value, * 10 


5115 


0600 


LD 


B-, 00H 


Prohibit overflow during add 


5117 


4F 


LD 


C,A 


BC = Current digit 


5118 


09 


ADD 


HL,BC 


Add it to previous value 


5119 


44 


LD 


B, H 


Then, move current 


511A 


4D 


LD 


C,L 


value to BC 


511B 


El 


POP 


HL 


Restore cmd string address 


511C 


23 


INC 


HL 


Bump to next char. 


511D 
* 


18E8 


JR 


5107H 


Loop till end of line detected 


* 


Scan input string following ( or 


• = look for Y, N, or OF. If 


* 


found, 


return W/BC = after skj 


Lpping to next , or ) in cmd 


* 


string. 


Look for 


ON. If found, i 


return W/BC = -1 and 


* 


position to next 


, or ) in cmd £ 


string. If Y, N, or does 


* 


not follow as next char, exit W/ 


'BC = 0. 


511F 


010000 


LD 


BC,0000H i 


5ero accumulator 


5122 


7E 


LD 


A, (HL) C 


Set a char, from cmd string 


5123 


FE27 


CP 


27H C 


:ompare it to an ' (apostrophe) 


5125 


C0 


RET 


NZ I 


]xit if val. not preceded by * (er 


5126 


23 


INC 


HL I 


Jump to first digit 



Listing Continued . 
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. . . Continued Listing 

5127 7E LD A, (HL) 

5128 D630 SUB 30H 
512A 380A JR C,5036H 
512C FE0A CP 0AH 
512E 380E JR C,513EH 
5130 D607 SUB 07H 
5132 FE10 CP 10H 
5134 3808 JR C,513EH 

5136 7E LD A, (HL) 

5137 PE27 CP 27H 
5139 23 INC HL 
513A C8 RET Z 
513B 2B DEC HL 
513C AF XOR A 
513D C9 RET 



Fetch a digit 

Convert it to binary 

Jump if end of input string 

Test for digit 0-9 

Jump if 0-9 

Test for lettdr A-F 

And adjust binary value 

Jump if A - F 

Refetch non-digit char. 

Test for end of hex digit (') 

Bump to next input string char. 

Exit if done 

Else back-up to illegal character 

Signal an error 

and return to caller 



* 

513E 
513F 
5140 
5141 
5142 
5143 
5144 
5145 
5146 
5147 
5148 
5549 
514A 



Multiply current digit by 16 and add to accumulator. 



E5 
60 
69 
29 
29 
29 
29 
44 
85 
0F 
El 
23 
18DB 



PUSH 

LD 

LD 

ADD 

ADD 

ADD 

ADD 

LD 

ADD 

LD 

POP 

INC 

JR 



HL 

H,B 

L f C 

HL,HL 

HL,HL 

HL,HL 

HL f HL 

B,H 

A,L 

C,A 

HL 

HL 

5127H 



Save input string addr. 

Move current hex binary value 

To HL 

Multiply current hex value by 

16 using additions 

*8 

*16 

Save MSB of new hex value 

Add current hex digit 

BC = Current hex value 

Restore input string addr. 

Bump to next digit 

Loop till non-hex found 
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5.0 SYS2/SYS 

SYS2/SYS is part of the TRSDOS file management system. It is called by the 
nucleus in response to various I/O calls, and by SYS6. SYS6 uses various internal 
subroutines in SYS2. These subroutines are called directly from SYS6 after SYS2 
has been loaded through an OPEN call. There are three entry points in SYS2; they 
are: 



iS YS2 Entry Points 




SYS2 OPTIONS 


Function 


10 


Open a file. 


20 


INIT a file. 


30 


Build an overflow 




directory entry. 



SYS2 begins by isolating the options field of the request code and branching to the 
corresponding entry point. Following is the code used for this operation: 
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Figure 5.2 SYS2 Code From 4E00 to 4E1E 



4E00 


E670 


AND 


70H 


4E02 


FE10 


CP 


10H 


4E04 


CA124E 


JP 


Z,4E12H 


4E07 


FE20 


CP 


20H 


4E09 


CAD84E 


JP 


Z,4ED8H 


4E0C 


FE3 


CP 


30H 


4E0E 


CA504F 


JP 


Z,4F50H 


4E11 
* 


C9 


RET 




* 
* 






Begin OPEN 


4E12 


CD9648 


CALL 


4896H 


4E15 


78 


LD 


A,B 


4E16 


32AF4F 


LD 


(4FAFH) ,A 


4E19 


22C04F 


LD 


(4FC0H) ,HL 


4E1C 


DDE 5 


PUSH 


IX 


4E1E 


El 


POP 


HL 



Isolate option 

Test for OPEN request 

Jump if OPEN 

Test for INIT request 

Jump if INIT 

Test for create overflow entry 

Jump if create overflow entry 

None of the above - Ret caller 



Save reg. setup return sequence 

A = Record length 

Save record length 

Callers sector buffer address 

DCB addr. to HL via stack 

HL - DCB addr. 



5.1 Request Code 10 (OPEN) 

A request code of 10 selects OPEN processing in SYS2. The procedure used is 
straightforward. It consists of the following steps: 

1. Save the registers and setup the exit sequence. 

2. Copy the file name to an internal buffer area. 

3. Compute a hash code for the file name. 

4. Compute a password value if a password was specified. 

5. Read the HIT sectors and look for a matching hash code. 

6. Read the directory entry and construct the DCB. 

The code for OPEN processing begins at 4E 12. It starts by calling a subroutine 
at 4896 in the nucleus to save the register context. This subroutine, also, saves a 
return address of 48B3 on the stack, which restores the context and returns to the 
caller. 

After the registers have been saved, the record length and the buffer address are 
saved in locations within SYS2 where they will be used to initialize a directory 
entry and DCB. 

At 4E 15, a subroutine at 5027 is called to process the file name. The processing 
consists of separating the file name into its constituent parts and storing them in 
separate buffer areas within SYS2. The file name will be copied to an 8-byte buffer 
at 515D, the extension will be copied to 5165, the password will be copied to a 
buffer at 5155, and the drive specification, if supplied will be saved at 5154. If no 
drive was specified, 5154 will contain a -1 (FF). For a detailed description of this 
subroutine, see Section 5.4. 
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When control returns from 5027, a test for errors is performed. If any error 
occurred (illegal character in file name, illegal drive specification, etc.), control will 
be returned to the caller with the proper error code in the A register. 

Assuming no errors were detected, processing continues at 4E23 and 4E26, 
where a subroutine at 509B is called to compute a hash code for the file name in 
the buffer beginning at 515D. The hash code returned will be a number between 
1 and FF. This code is saved at 4E4E for comparison with other hash codes when 
the HIT is read. For a description of the hash subroutines, see Section 5.5. 

Continuing at 4E2C and 4E2F is a call to SOD 1 to compute the password code. 
The password buffer begins at 5155. The password code will be returned as a 16-bit 
value in the HL register. It will be saved at 5168 and 516A for storage into the 
directory sector and DCB. Following is the code used to compute a password value: 



Figure 5.3 SYS2 Code From 50D1 to 5UFC 



* 
* 


Compute 


encode 


of password 


* 
* 


On entry 


DE ■ 


addr. of pas 


50D1 


21FFFF 


LD 


HL f 0FFFFH 


50D4 


0608 


LD 


B, 08H 


50D6 


7B 


LD 


A,E 


50D7 


C607 


ADD 


A,07H 


50D9 


5F 


LD 


E,A 


50OA 


3001 


JR 


NC,50DDH 


50DC 


14 


INC 


D 


50DD 


1A 


LD 


A, (DE) 


50DE 


D5 


PUSH 


DE 


50DF 


57 


LD 


D f A 


50E0 


5C 


LD 


E,H 


50E1 


7D 


LD 


A,L 


50E2 


E607 


AND 


07 H 


50E4 


0F 


RRCA 




50E5 


0F 


RRCA 




50E6 


0F 


RRCA 




50E7 


AD 


XOR 


L 


50E8 


6F 


LD 


L,A 


50E9 


2600 


LD 


H f 00H 


50EB 


29 


ADD 


HL,HL 


50EC 


29 


ADD 


HL r HL 


50ED 


29 


ADD 


HL,HL 


50EE 


29 


ADD 


HL,HL 


50EF 


AC 


XOR 


H 


50F0 


AA 


XOR 


D 


50F1 


57 


LD 


D f A 


50F2 


7D 


LD 


A,L 



Mask value used for encode 

Max. no. chars, to encode 

A = LSB of password buffer 

Add 7 to position to end 

of buffer. Must test for CARRY 

And bump MSB if true 

Bump MSB of password buffer 

Fetch char, from password buffer 

Save current buffer address 

Save char, to be encoded 

E = Mark Value 1 (MVl) 

A = Mark Value 2 (MV2) 

Reform MV2 by Exclusive ORing 

lower 3 bits and upper 3 bits 

Reposition lower 3 bits 

to upper 3 bits 

Exclusive OR lower and upper 3 bits 

And- save as new MV2 

Clear H to multiply new MV2 by 16 

MV2 * 2 

MV2 * 4 

MV2 * 8 

MV2 * 16 

Combine upper 8 bits of MV2 * 16 

and partially reformed MV2 and 

current character 

Save upper 8 bits of encode 

Preserve lower 8 bits of MV2 * 16 

Listing Continued . . . 
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. . . Continued Listing 






50F3 29 


ADD 


HL,HL 


50F4 AC 


XOR 


H 


50F5 AB 


XOR 


E 


50F6 5F 


LD 


E,A 


50F7 EB 


EX 


DE,HL 


50F8 Dl 


POP 


DE 


50F9 IB 


DEC 


DE 


50FA 10E1 


DJNZ 


50DDH 


50FC C9 


RET 





Compute MV2 * 32 

Combine upper 8 bits of MV2 * 32 

With lower 8 bits of MV2 * 16 and MV1 

Save lower 8 bits of encode 

HL = current encode 

Password buffer address 

Skip down to next char. 

Loop till all characters encoded 

Return to caller 



Next, at 4E38 preparations are made for reading the HIT sectors. If a drive was 
specified, then only the specified drive will be read. If no drive was specified, then 
all drives will be searched starting with drive and continuing through drive 4. The 
loop for reading the HIT sectors is controlled by the drive specification in 5154. 

The code from 4E38 to 4E5E reads the HIT sectors and searches them for a 
matching hash code. Beginning at 4E38 the caller's drive specification is loaded 
into the C register. If no drive was specified, a -1 will be loaded. Otherwise, the 
drive number will be loaded. 

At 4E3C/4E3F a simple procedure is executed to insure the C register has a 
positive value before the subroutine at 512E is called to read the HIT sector. 
Before 512E is called, another subroutine at 50FD is called to determine if the 
drive to be read is available. If it is, the HIT sector is read and searched. If it is not, 
control goes to 4E54, where the next unit number is computed. 

The subroutine at 50FD begins by sending a force interrupt command to the 
controller. This clears the controller so a reliable status can be read. Next, a 
subroutine in the nucleus at 4600 is called to select the drive to be read. Selecting 
the drive also forces motor on for the unit selected. If a diskette is mounted in the 
drive, it will begin spinning, and eventually the index status line will come true. 

After selecting the drive, a count-down timer of approximately 8 seconds is 
loaded into the BC register. Next, a subroutine at 5 HE is called to return the 
status of the index bit from the disk controller. The subroutine at 5 HE 
decrements the BC counter before fetching the index status bit. If the counter goes 
to zero before index is detected, control returns to the caller of 50FD with a 
non-zero (drive not available) status. 

Beginning at 5109 and continuing through 5116, three calls are made to 5 HE. 
The first call at 5 109 will loop if index is true, until it goes false. This is not a likely 
possibility, but it could happen if the index hole was under the sensor at the time 
the drive was selected. The second call at 510E waits until index comes true. This 
means a drive is present and a diskette is mounted. The third call at 5113 waits for 
the index line to go false. This insures that the index true signal was not spurious. 

If the timeout counter expires before all three conditions are met, the drive is 
assumed to be unavailable, and the appropriate status is returned to the caller of 
50FD. 
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Following the determination that a drive does exist, the code from 5119 to 
5 1 1C is executed before returning to the caller. This appears to be a test for drive 
ready, but it will always return a zero (good-status drive available). Upon entry, 
512E saves the caller's BC/DE register, calls a nucleus subroutine at 4B55 to load 
the directory track nuumber into the D register, loads the E register with a 1 
(sector number), specifies a sector buffer address of 4D00, and calls another 
nucleus subroutine at 4B35 to read the HIT sector. Upon return from 4B35, the 
BC/DE registers are restored, and control returns to 4E48, where an early exit is 
taken if a read error occurred. Following is the code used for these operations. 



Figure 5.4 S YS2 Code From 50 FD to 51 ID 



* 
* 
* 
* 
* 

50PD 
50FF 
5102 
5105 
5106 
5109 
510C 
510E 
5111 
5113 
5116 
5118 
5119 
511A 
511C 
511D 



Determine 
index. If 
no drive, 

3ED0 

32EC37 

CD0046 

C5 

015531 

CD1E51 

20FB 

CD1E51 

28FB 

CD1E51 

20FB 

CI 

07 

E680 

87 

C9 



drive availability. Select drive and wait for 
no index detected within approx. 1 sec. there is 

or the drive is not ready. 

LD A,0D0H Clear controller by sending it 

LD (37ECH) , A a force interrupt command 

CALL 4600H Select unit in C-reg. 

PUSH BC Save caller's BC 

LD BC,3155H Count for approx. 1 sec. 

CALL 511EH Get disk status 

JR NZ,5109H Loop till index 

CALL 511EH Now 

JR Z,510EH wait 1 revolution 

CALL 511EH And test for index again 

JR NZ f 5113H Loop till 2nd index 

POP BC Restore caller's BC 

RLCA This code is meaningless 

AND 80H and will always 

ADD A, A Return a zero in the A-register 

RET Return to caller 
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Figure 5.5 S YS2 Code From 51 IE to 51 2D 



* 
* 


Decrement count 


in BC while 


waiting for INDEX. If count 


* 


goes 


to 


zero 


bef 


ore INDEX detected, return to caller of 


* 

* 


50FD 


wil 


bh a non- 


zero status. 




511E 


0B 




DEC 




BC 


Decrement count 


511F 


78 




LD 




A,B 


Combine both halves 


5120 


Bl 




OR 




C 


Set status flag 


5121 


2806 




JR 




Z,5129H 


Go if count reached zero 


5123 


3AEC37 




LD 




A, (37ECH) 


Else get click status 


5126 


CB4F 




BIT 




01H,A 


Test for index 


5128 


C9 




RET 






And return to caller 


5129 


CI 




POP 




BC 


Clear stack 


512A 


CI 




POP 




BC 


Clear stack 


512B 


F601 




OR 




01H 


Return to 


512D 


C9 




RET 






50FD caller w/error status 



(error) 



Figure 5.6 SYS2 Code From 512E to 5140 



* 
* 



— Read HIT sector for drive sqecified in C register 



512E C5 PUSH BC 

512F D5 PUSH DE 

5130 CD554B CALL 4B55H 

5133 1E01 LD E f 0lH 

5135 21004D LD HL,4D00H 

5138 CD354B CALL 4B35H 

513C Dl POP DE 

513C CI POP BC 

513D C8 RET Z 

513E 3E16 LD A,16H 

5140 C9 RET 



Save caller's 

BC and DE 

Get directory into D reg. 

E = sector number for HIT 

Buffer address 

Read HIT sector from directory track 

Restore caller's 

BC and DE 

If no error return with good status 

Else signal HIT read error 

Then return to caller 



Assuming no read error occurred, a loop from 4E40 to 4E52 is executed to 
search the sector buffer at 4D00 for a matching hash code. If a match is found, 
control goes to 4E6A, otherwise two tests are performed. The first tests for a 
caller-specified drive number. If this test is true, control goes to 4E60, where a 
status indicating 'file not found' is loaded and control is returned to the caller. The 
second test, assuming no drive was specified, tests if all drives have been searched. 
This test is performed by incrementing the unit number in the C register and 
comparing it to 4. When the drive number equals 4, all drives have been searched, 
and control is returned to the caller with a status of file not found. The code used 
for these operations is shown below. 
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Figure 5.7 


SYS2 Code From 4E12 to 4E68 


* 
* 
* 






Begin OPEN 


4E12 


CD964 8 


CALL 


4896H 


4E15 


78 


LD 


A,B 


4E16 


32AF4F 


LD 


(4FAFH) ,A 


4E19 


22C04F 


LD 


(4FC0H) ,HL 


4E1C 


DDE5 


PUSH 


IX 


4E1E 


El 


POP 


HL 


4E1F 


CD2750 


CALL 


5027H 


4E22 


C0 


RET 


NZ 


4E23 


215D51 


LD 


HL,515DH 


4E26 


CD9B50 


CALL 


509BH 


4E29 


324E4E 


LD 


(4E4EH) ,A 


4E2C 


115551 


LD 


DE,5155H 


4E2F 


CDD150 


CALL 


50D1H 


4E32 


226851 


LD 


(5168H) ,HL 


4E35 


226A51 


LD 


(516AH) ,HL 


4E38 


3A5451 


LD 


A r (5154H) 


4E3B 


4F 


LD 


C,A 


4E3C 


3C 


INC 


A 


4E3D 


2001 


JR 


NZ,4E40H 


4E3F 


4F 


LD 


C,A 


4E40 


CDFD50 


CALL 


50FDH 


4E43 


200F 


JR 


NZ,4E54H 


4E45 


CD2E51 


CALL 


512EH 


4E48 


C0 


RET 


NZ 


4E49 


7E 


LD 


A, (HL) 


4E4A 


B7 


OR 


A 


4E4B 


2804 


JR 


Z,4E51H 


4E4D 


FE00 


CP 


00H 


4E4F 


2819 


JR 


Z,4E6AH 


4E51 


2C 


INC 


L 


4E52 


20F5 


JR 


NZ,4E49H 


4E54 


3A5451 


LD 


A, (5154H) 


4E57 


3C 


INC 


A 


4E58 


2006 


JR 


NZ,4E60H 


4E5A 


0C 


INC 


C 


4E5B 


79 


LD 


A,C 


4E5C 


FE04 


CP 


04H 


4E5E 


38E0 


JR 


C,4E40H 


4E60 


3E18 


LD 


A,18H 


4E62 


B7 


OR 


A 


4E63 


C9 


RET 





Save regs. setup return sequence 

A = Record length 

Save record length 

Callers sector buffer address 

DCB addr. to HL via stack 

HL = DCB addr. 

Move file name to local DCB (515D) 

Exit if illegal chars, found 

HL = Start of local DCB 

Compute hash code for filename 

Save hash code 

Addr. of password buffer 

Get encode of password into HL 

And save in 

Local DCB 

Get drive specification flag 

C - Default unit number (0) 

= FF if none given, else = drive no. 

Jump if drive specified 

Else begin with drive 0, and 

see if drive in C reg. present 

Jump if drive not present 

Drive found, get table in 4D00 

Exit if error during read 

Get hash code from HIT 

just read 

Set status flags for hash code 

Jump if slot empty 

Compare hash from HIT 

to computed 

Jump if hash codes match 

Else bump to next loc. 

in hash tab. 

Jump if hash tab. not finished 

No match. File not found, 

search next drive 

Unless drive was specified 

If drive specified 

file not found 

Else bump drive number 

Drive to A-reg. so we can test 

if all drives were searched 

Jump if all drives 

not searched 

Error code for file not found 

Set status flags 

Return to caller 

Listing Continued . . . 
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. . . Continued Listing 
* 






* 
* 


Clear 


Stack an 


4E64 CI 


POP 


BC 


4E65 El 


POP 


HL 


4E66 CI 


POP 


BC 


4E67 El 


POP 


HL 


4E68 18E7 


JR 


4E51H 



Clear stack 

Clear stack 

Restore drive no. to C-reg. 

Restore current hash sector index 

Go test next hash value 



At 4E6 A, the directory sector containing the name will be read. When this code 
is entered, the HL register contains the address of the matching hash code in the 
HIT sector. The L register is an index into the HIT sector buffer and also contains 
the sector number minus two for the directory sector containing the file entry in 
bits - 3. 

A read for the directory sector is issued at 4E6D. On return, the sector resides 
in the buffer at 4200, and the HL register points to an advanced starting position 
in the buffer where the file name may be found. If no errors occurred during the 
read, control passes to 4E75; otherwise, control is returned to the caller of SYS2 
with an appropriate error code in the A register. The code used for these operations 
is given below. 



Figure 5.8 SYS2 Code From 4E6A to 4E74 



* 
* 
* 

4E6A E5 
4E6B C5 
4E6C 45 
4E6D CDC14A 
4E70 2803 
4E72 CI 
4E73 El 
4E74 C9 



Read Directory Sector Containing File Entry 
Matching Hash Code Found 



PUSH 

PUSH 

LD 

CALL 

JR 

POP 

POP 

RET 



HL 

BC 

B,L 

4AC1H 

Z,4E75H 

BC 

HL 



Save hash code address 

Save B/unit number 

B = Addr. of entry in directory 

Read directory sector into 4200 

Continue if no error 

Else clear 

Stack and 

Return to caller w/error status 



At 4E75, the directory entry pointed to by the HL register is compared to name 
of the file being opened. If they do not match, or if the directory entry is not a 
primary entry, control goes to 4E64 and from there to 4E51. 

At 4E64, two pushes are cleared from the stack, the BC and HL registers are 
restored to the unit number and current index into the HIT sector buffer at 4D00. 
Control then passes to 4E51, where the next hash entry is compared to the hash 
value for the current file name. 
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This code permits two files to have the same hash value. 

If the directory entry is a primary entry and the file name matches, control will 
fall through to 4E8C. At that point, the unit number (5154) is updated to reflect 
the current drive, the HL register is restored to the starting address for the file in 
the directory sector, two pushes are cleared from the stack, and the unit number 
and directory entry address are saved on the stack. 

Next, the permission flags are isolated and copied to the C register, the HL 
register is adjusted to point to the password, and the encode of the password is 
subtracted from 24,994. Finally, control passes to 4ECF, and from there to 4FA7. 
The following code is used to search the directory sector. 



Figure 5.9 


SYS2 Code From 


: 4E75 to 4EAC 


* 
* 




— Locate 


File Entry 


4E75 


E5 


PUSH 


HL 


4E76 


C5 


PUSH 


BC 


4E77 


CB7E 


BIT 


07H,(HL) 


4E79 


20E9 


JR 


NZ,4E64H 


4E7B 


3E05 


LD 


A r 05H 


4E7D 


85 


ADD 


A,L 


4E7E 


6F 


LD 


L,A 


4E7F 


115D51 


LD 


D ,515DH 


4E82 


060B 


LD 


B, 0BH 


4E84 


1A 


LD 


A, (DE) 


4E85 


BE 


CP 


(HL) 


4E86 


20DC 


JR 


NZ,4E64H 


4E88 


23 


INC 


HL 


4E89 


13 


INC 


DE 


4E8A 

1e 


10F8 


DJNZ 


4E84H 


* 




Filename Located 


* 
* 


Isolate Access Permissii 


4E8C 


CI 


POP 


BC 


4E8D 


79 


LD 


A,C 


4E8E 


325451 


LD 


(5154H) ,A 


4E91 


El 


POP 


HL 


4E92 


Fl 


POP 


AF 


4E93 


Fl 


POP 


AF 


4E94 


C5 


PUSH 


BC 


4E95 


E5 


PUSH 


HL 


4E96 


7E 


LD 


A, (HL) 


4E97 


E607 


AND 


07H 


4E99 


4F 


LD 


C,A 


4E9A 


0600 


LD 


B, 00H 



Save addr. of file entry 

And dir index, unit number 

Test if primary directory entry 

Jump if not primary entry 

Offset to name in dir 

Add 5 to addr. of entry 

HL = Addr. of name in directory 

DE = Addr. of local DCB 

(contains name) 

Max No. of chars, to match 

A = Char, from local DCB 

Compare to Char, in directory sector 

Go to next entry if no match, else 

Bump directory entry address and 

Local DCB address 

Loop till all chars, in name matched 



Restore unit number 

Move unit number to A reg. 

Save unit number 

HL = directory entry sector addr. 

Clear stack 

Clear stack 

Save index/unit numcer 

Addr. of directory entry 

containing file 

Get first byte of directory entry 

Isolate permission bits 

And save in C 

Permission flags - no restriction 

Listing Continued . 
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. . . Continued Listing 






4E9C 3E10 


LD 


A f 10H 


4E9E 85 


ADD 


A f L 


4E9F 6F 


LD 


L,A 


4EA0 ED5B6A51 


LD 


DE, (516AH) 


4EA4 E5 


PUSH 


HL 


4EA5 21A261 


LD 


HL r 6lA2H 


4EA8 AF 


XOR 


A 


4EA9 ED52 


SBC 


HL,DE 


4EAB El 


POP 


HL 


4EAC 1821 


JR 


4ECFH 



Offset to password 

Gives addr. of update password 

HL = Addr. of password in dir entry 

Encode of password 

Save addr. of dir (16) entry 

HL = 24,994 

Clear carriage 

24/994 - encode of password 

Restore addr. of password 

Go fill in DCB. 



At 4FA7, the DCB is initialized. After initializing the working registers, the 
DCB is flagged as open (at 4FAB), the permission flags and I/O type flags 
(physical or logical) are merged and saved in the second byte of the DCB 
(4FAE-4FB9). Next, byte 3 of the DCB is initialized to zero, the sector buffer 
address is stored in bytes 4 and 5, and the next record number and overflow pointer 
are saved at DCB plus 7 and 8. 

Continuing at 4FCD, the EOF byte offset is copied from the directory entry to 
the ninth byte of the DCB, the record length is copied from the directory entry, the 
next record nuumber is set to zero, and the EOF sector is copied from the directory 
to the DCB. 

The code from 4FE5 to 4FE8 copies the number of sectors in the file (file size) 
from the directory to the DCB. The code from 4FEB to 501B copies the GAP's 
from the directory to the DCB and computes the sum of the granules addressable 
through each GAP. This is done for the benefit of the disk I/O system, which uses 
the granule totals to determine which GAP contains a particular record. For more 
information about how the GAP's and the granule sums are used, see Section 3.4.5. 

The track for the first GAP is copied from the directory sector buffer to the DCB 
at 4FED. The granule count for the first GAP is copied at 4FF2/4FF3. The 
granule count for the first GAP is also loaded into the BC register pair, which 
serves as granule accumulator for the loop at 4FFC to 5019. 

This loop copies the remainder of the GAP's from the directory to the DCB. 
Before any GAP is moved, a test for end of GAP or overflow GAP pointer is 
performed at 4FFE/4FFF. If either condition is true, control goes to 501C, where 
the GAP chain is filled out. 

If neither is true, the accumulated granule count (in the BC) is copied to the 
DCB (following the previous GAP), the starting track number and granule count 
for the next GAP is then copied, and the number of granules for the current GAP 
is added to the granule total in the BC registers. This loop is repeated until the end 
of the GAP's in the primary entry is reached. 

When the last of the GAP's has been copied the DCB initialization is complete; 
the OPEN or INIT operation is also complete and control returns to the caller of 
SYS2. Following is the code used to initialize a DCB. 
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Figure 5.10 SYS2 Code From 4FA7 to 5026 



* 
* 
* 
* 

4FA7 
4FA8 
4FAA 
4 FAB 
4 FAD 
4FAE 
4FB0 
4FB1 
4FB3 

4FB5 
4FB7 
4FB9 
4FBA 
4FBB 
4FBD 
4FBE 
4FBF 
4FC2 
4FC3 
4FC4 
4FC5 
4FC6 
4FC7 
4FC9 
4FCA 
4FCB 
4FCC 
4FCD 
4FCE 
4FD0 
4FD1 
4FD2 
4FD3 
4FD4 
4FD5 
4FD6 
4FD9 
4 FDA 
4FDB 
4 FDD 
4FDE 
4FE0 
4FE1 
4FE3 
4FE4 



Fill out DCB. Copy portions of primary entry to DCB. On 
entry DE = addr of directory entry, HL = addr of DCB. 

EB EX DE,HL DE addr. of directory entry 

DDE5 PUSH IX Prepare to load HL 

El POP HL HL = addr. of caller's DCB 

3680 LD (HL),80H Signal file open 

23 INC HL Bump to 2nd byte of DCB 

3E00 LD A f 00H A = record length 

B7 OR A Set status flags for record length 

3E00 LD A,00H Load access flags (put here by 4ED1) 

2802 JR Z,4FB7H Jump if rec. length is 

zero (phys. I/O) 

F680 OR 80H Else, signal logical I/O 

F620 OR 20H Force read on first access 

77 LD (HL) ,A Save access flags, type of I/O 

23 INC HL Bump to 3rd byte of DCB 

3600 LD (HL),00H and store a zero (Not used) 

23 INC HL Bump to 4th byte of DCB 

D5 PUSH DE Save original DCB addr. 

110000 LD DE,0000H Sector buffer addr. to DE 

73 LD (HL),E LSB of buffer addr. to DCB 

23 INC HL Bump to 5th byte of DCB 

72 LD (HL) ,D MSB of buffer to DCB 

23 INC HL Bump to 6th byte of DCB 

Dl POP DE Restore dir. entry addr. 

3600 LD (HL),00H Offset to end of cusrent record 

23 INC HL Bump to 7th byte of DCB 

71 LD (HL) ,C Save drive no. 

23 INC HL Bump to 8th byte of DCB 

70 LD (HL) ,B Save overflow pointer 

23 INC HL Bump to 9th byte of DCB 

3E03 LD A,03H Index to EOF byte in directory 

83 ADD A,E Add to LSB of addr. of 

5F LD E,A base of directory sector 

1A LD A, (DE) Load EOF byte offset from dir entry 

77 LD (HL) ,A Save EOF byte offset 

23 INC HL Bump to 10th byte of DCB 

13 INC DE Bump to next by of directory 

3AAF4F LD A, (4FAFH) Load record length 

77 LD (HL) ,A Move record length to DCB 

23 INC HL Bump to 11th byte of DCB 

3600 LD (HL),00H Clear LSB of next record no. 

23 INC HL Bump to MSB 

3600 LD (HL),00H Clear MSB of next record no. 

23 INC HL Bump to 13th byte of DCB 

3E10 LD A,10H Index to EOF sector number 

83 ADD A,E Add to base of dir sector addr. 

5F LD E,A Form addr. of 16th byte in DE 

Listing Continued . . . 
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. . . Continued Listing 

4FE5 1A 

4FE6 77 

4FE7 23 

4FE8 CD8051 

4FEB 23 

4FEC 13 

4FED 1A 

4FEE 77 

4FEF 23 

4FF0 13 

4FF1 1A 

4FF2 77 
4FF3 23 
4FF4 E61F 

4FF6 3C 
4FF7 4F 
4FF8 0600 
4FFA 3E04 
4FFC F5 
4FFD 13 
4FFE 1A 
4FFF FEFE 

5001 3019 

5003 71 

5004 23 

5005 70 
5006223 
5007 1A 



77 
23 



5008 

5009 

500A 13 

500B 1A 

500C 

500D 

500E 



77 
23 
E61F 



5010 3C 

5011 81 

5012 4F 

5013 78 

5014 CE00 

5016 47 

5017 Fl 

5018 3D 

5019 20E1 
501B C9 



LD 

LD 

INC 

CALL 

INC 

INC 

LD 

LD 

INC 

INC 

LD 

LD 

INC 

AND 

INC 

LD 

LD 

LD 

PUSH 

INC 

LD 

CP 

JR 

LD 

INC 

LD 

INC 

LD 

LD 

INC 

INC 

LD 

LD 

INC 

AND 

INC 

ADD 

LD 

LD 

ADC 

LD 

POP 

DEC 

JR 

RET 



A r (DE) 
(HL) ,A 
HL 

5180H 
HL 
DE 

A, (DE) 
(HL),A 
HL 
DE 

A, (DE) 

(HL),A 

HL 

1FH 

A 

C,A 

B,00H 

A,04H 

AF 

DE 

A, (DE) 

0FEH 

NC f 501CH 

(HL),C 
HL 

(HL),B 

HL 

A, (DE) 

(HL) ,A 

HL 

DE 

A, (DE) 

(HL),A 

HL 

1FH 

A 

A,C 

C,A 

A,B 

A,00H 

B,A 

AF 

A 

NZ,4FFCH 



* 
* 



End of GAP'S in directory 
Fill remainder of DCB GAP 



501C Fl 
501D 07 



POP 
RLCA 



AF 



Fetch EOF sector (LSB) 

And save in DCB 

Bump to 14th byte in DCB 

Copy MSB of number of sectors 

Bump to 1st track addr. in DCB 

Bump to 1st trk. addr. in directory 

Fetch starting track number 

Save in DCB 

Bump to gran count for 1st GAP in 

Dir sector and LSB of accumulated 

granule in DCB 

Fetch # of granules from dir entry 

Copy it to DCB 

Bump to track # for 2nd GAP 

Isolate no. of consecutive 

granules -1 for 1st GAP 

Gives no. of consecutive grans 

BC will contain total grans 



No. of extant pairs remaining 

Save count. 

Bump to next GAP 

Fetch next GAP from directory 

Look for end of GAP or 

overflow pointer 

Jump if end or overflow pointer 

Save LSB of total grans for 

previous GAP 

Save MSB of total 

Bump to first pos. in next GAP 

Fetch track for next GAP 

And save in DCB 

Bump to 2nd byte of GAP in DCB 

Bump to count in dir. sector 

Get count of assigned grans 

Save in DCB 

Bump to LSB of totals in DCB 

Isolate count from starting 

sector number 

Get true granule count 

Form new total granules 

Accessible thru 

GAPS thus far 

capture carry in of overflow 

BC = Total granules accessible 

Restore no. of GAP's to copy 

Have we copied all GAP's 

Jump if not 
Else ret to OPEN/INIT caller 



entry have been reached, 
area with bytes of FF. 

Number of unfilled entries 
Times four 



Listing Continued . . . 
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. . . Continued Listing 






501E 07 


RLCA 




501F 47 


LD 


B,A 


5020 36FF 


LD 


(HL) ,0FFH 


5022 23 


INC 


HL 


5023 10FB 


DJNZ 


5020H 


5025 AF 


XOR 


A 


5026 C9 


RET 





gives byte count 

Move to B reg.for loop control 

Signal end of GAP'S 

Bump to next entry in DCB 

Loop till DCB filled 

Signal good status 

Return to caller 



5.2 Request Code 20 (INIT) 

A request code of 20 selects INIT processing. This processing is very similar to 
OPEN processing, and shares some of its code. It consists of the following steps: 

1. Use OPEN code to compute hash and attempt to locate the file. 

2. If the file was located at Step 1, return to caller. 

3. Otherwise, find an available slot in a HIT sector, assign slot to the 
file and rewrite the updated HIT sector. 

4. Read the directory sector associated with the ordinal assigned in the 
HIT sector. 

5. Initialize the file name entry in the directory sector and rewrite the 
updated sector. 

6. Construct the DCB. 

The code for INIT processing begins at 4ED8. As with OPEN, the first call is 
to a nucleus subroutine at 4896 to preserve the register context and set up an exit 
sequence. Next, OPEN is called. If the file already exists, a zero status will be 
returned, and control will be returned to the caller because all processing has been 
completed. 

When a non-zero status is returned, its exact value must be tested. A status of 18 
means the file was not found and a directory entry for it must be created. Any other 
non-zero status indicates a non-recoverable error during OPEN processing. In 
that case, control returns to the caller with an error status. 

Starting at 4EE2 preparations are made to assign a HIT slot and initialize a 
directory entry. The code at 4EE2 modifies the instruction at 4F1C to store an 
'assigned' byte in the first byte of a directory entry. Following the code at 4EE2 
is a test for a user-specified drive number. Usage of 5154 and a description 
subroutine of the subroutine at 50FD can be found in Section 5.1. 

The code from 4EE7 to 4EF4 will select the user-specified drive, or find an 
available one. At 4EF6, a subroutine at 512E is called to read the HIT sector for 
the unit selected. 
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The subroutine at 512E begins by saving the BC/DE register set. Next, a 
nucleus subroutine at 4B55 is called to return the directory track number for the 
unit in the C register. After that, the E register is loaded with the sector number for 
the HIT sector, a buffer address of 4D00 is loaded into the HL register, and a 
nucleus subroutine at 4B35 is called to read the HIT sector. On return from 
4B35, the BC/DE registers are restored, and control is returned to the caller with 
the read status in the A register. 

Back at 4EF9, the read status is tested. Assuming a good status, the subroutine 
at 50AB is called to locate an available slot in the HIT sector. 

The subroutine at 50AB will search the HIT sector for an available slot within 
the boundaries of 40 - 47, 60 - 67,E0 - E7. An arbitrary starting point within the 
sector buffer is chosen by masking the contents of 4040 (updated every 25 
milliseconds) and forcing it into the range 40 - 47, etc. Next, at 50B7 a call to a 
subroutine at 50BD is made to locate an available slot. If the call is unsuccessful, 
50BD in re-executed by falling into it with a starting point of 40 in the HIT 
buffer. 

50BD searches the HIT buffer looking for available (zero) slot. On entry, the 
HL register contains the starting position with the HIT buffer where the search 
will begin. The search consists of two loops. The first loop goes from 50BD to 
50C4. Each time an unavailable entry is found, this loop bumps the index by 20. 
This loop terminates when an available slot has been found, or the index exceeds 
E7. 

The second loop goes from 50BD to 50CC. When the index overflows from the 
first loop, the second loop is entered. When entered, the A register will contain a 
value (at 50C6), and the result is tested for overflow out of the lower three bits 
(least significant digit greater than 7). If no overflow occurs, control returns to the 
first loop. This varies the last digit of the index by 1. Eventually, if no slot is found, 
the last digit will exceed 7, and control will be returned to the caller of 50 AB with 
a non-zero (no slot available) status. 

HIT slots are assigned for the ordinals 40 - 47, 60 - 67,E0 - E7. The indices for 
00 - 07, and 20 - 27 are reserved for system use. The HIT index can be used to 
derive the sector number, and the file position within the directory sector. It has 
the following format: 
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Figure 5.11 HIT Index Description 



1 1 


1 


1 1 — 






Sector number -2 of directory 
sector containing file owning the 
hash code addressed by this index 

Not used 

Bits 5, 6 and 7 of a 16-bit 
index pointing to the file name 
in the directory sector. 



Because of the restriction in assigning slot indexes, slots for the system files 
BOOT/SYS, DIR/SYS, SYSO/SYS, ... SYS6/SYS must be assigned manually. This 
restriction is not arbitrary. Recall that the overlay load request specifies a directory 
sector number and an index of or 1 into the directory sector. The HIT index 
restriction guarantees that the first and second entry in the directory sector will not 
be assigned to user files, and will always be available for system files. This also 
restricts the number of slots available for user files to 48. 

Note, also, that the entire HIT sector is searched during OPEN and INIT 
processing. If it were not, there would be no way to access the system files using 
TRSDOS utilities. Shown below is the code used for locating an available slot in 
the HIT sector. 



Figure 5.12 


SYS2 Code From 50 AB to 50 DO 


* 
* 


Find an 


available ri 


50AB 3A4040 


LD 


A, (4040H) 


50AE E6E7 


AND 


0E7H 


50B0 FE40 


CP 


40H 


50B2 3002 


JR 


NC,50B6H 


50B4 F680 


OR 


80H 


50B6 6F 


LD 


L,A 


50B7 CDBD50 


CALL 


50B 


50BA C8 


RET 


Z 


50BB 2E40 


LD 


L,40H 



Choose a random number 

Force it to 00-07 , 20-27, 40-47, 

Then test if below 40 

Jump if not, else 

force it 80-87, A0-A7, C0-C7, or E0-E7 

Form beginning search address in HL 

Search HIT, look for available slot 

Exit if one found 

Search again from start of table 



Listing Continued . . . 
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. . . Continued Listing 

50BD 7E LD A, (HL) 

50BE B7 OR A 

50BF C8 RET Z 

50C0 7D LD A,L 

50C1 C620 ADD A,20H 

50C3 6F LD L,A 

50C4 30F7 JR NC,50BDH 

50C6 C641 ADD A,41H 

50C8 6F LD L,A 

50C9 E6E7 AND 0E7H 

50CB BD CP L 

50CC 28EF JR Z,50BDH 

50CE F601 OR 01H 

50D0 C9 RET 



Get a HIT entry 

Set status floor 

Exit if avail. byte found 

Bump to first 

Byte of next set of entries 

Reform address 

jump if end of table not reached 
Restart search at 2, 3, ... of a set, 
Reform addr in range 4X-47, 6X-67 , . . . 
where X=l,2, . . .7 

If addr LSB = E7, found end of table 
Jump if not end of table 
Signal no available entries 
Return to caller 



After the HIT buffer has been searched, control returns to 4EFD, where the 
results of the search are tested. If a slot was found, control passes to 4FOE. If no 
slot was found, the HIT sector on the next available drive is read and searched 
(unless a drive was specified in the INIT call). If no slot is available in any HIT 
sector, control returns to the INIT initiator with a directory full status. 

Control goes to 4FOE when a slot has been found. The HL register will contain 
the address of the available slot; 4E4E contains the hash code (computed and 
stored during OPEN processing). After storing the hash code in the HIT slot, the 
HIT sector is rewritten to the disk via a call to 5141. 

5141 saves the caller's BC/DE register, calls the nucleus subroutine 4B55 to 
fetch the directory track number for the unit in register C, and calls 45CF to 
rewrite the HIT sector. Control returns to 4F16 with the rewrite status in the A 
register. Below is the code used for the subroutine at 5141. 



Figure 5.13 .S YS2 Code From 5141 to 5 1 53 



* 
* 
* 


Write 


HIT sector for d 


5141 


C5 


PUSH 


BC 


5142 


D5 


PUSH 


DE 


5143 


CD554B 


CALL 


4B55H 


5146 


1E01 


LD 


E,01H 


5148 


21004D 


LD 


HL,4D00H 


514B 


CDEF46 


CALL 


46EFH 


514E 


Dl 


POP 


DE 


514F 


CI 


POP 


BC 


5150 


C8 


RET 


Z 


5151 


3E17 


LD 


A,17H 


5153 


C9 


RET 





specified in C register 

Save caller's 

BC and DE registers 

Get directory track number 

for unit in C-reg. 

Specify sector 1 (HIT sector) 

Address of HIT sector buffer 

Write HIT sector 

Restore caller's 

BC and DE 

Exit if no error during write 

Else signal HIT write error 

And return to caller 
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If no error occurred during the write operation, the nucleus subroutine at 4 AC 1 
is called to read the directory sector associated with the slot in the HIT. The 
directory sector number and entry within the sector are derived from the index for 
the slot assigned. That index was preserved in the B register at 4F0E after the slot 
assignment was made by the call to 50AB at 4EFA. 

Upon return from the directory read call at 4F17, the HL register contains the 
address of the directory entry to be assigned. The instruction at 4F1C modifies 
the first byte of the directory to indicate the entry is assigned. The code from 
4F1F to 4F25 clears the permission flags and the EOF offset byte. The record 
length is saved at 4F28, and the name is copied from the internal buffer (515D) 
by the LDIR instruction at 4F35. The number of records in the file are zeroed at 
4F38 - 4F3D, and the GAP's are initialized to FF's by the loop for 4F3E to 
4F43. 

After the directory has been initialized, it is rewritten by a call to the nucleus 
subroutine at 4AD6. As with the read call, the B register contains the HIT slot 
index, which is used to derive the directory sector to be written. 

Following the directory sector rewrite, the subroutine at 4AF7 is called to fill 
out the caller's DCB. This subroutine is described in detail in Section 5.1. Shown 
below is the controlling code used during INIT processing: 



Figure 5.14 SYS2 Code From 4ED8 to 4F4F 



* 








* 
* 






INIT E 


4ED8 


CD9648 


CALL 


4896H 


4EDB 


CD154E 


CALL 


4E15H 


4EDE 


C8 


RET 


Z 


4EDF 


FE18 


CP 


18H 


4EE1 
* 


C0 


RET 


NZ 


* 
* 




File 


Does not 


4EE2 


3E10 


LD 


A,10H 


4EE4 


321D4F 


LD 


(4F1DH) ,A 


4EE7 


3A5451 


LD 


A, (5154H) 


4EEA 


4F 


LD 


C,A 


4EEB 


3C 


INC 


A 


4EEC 


2001 


JR 


NZ,4EEFH 


4EEE 


4F 


LD 


C,A 



Save regs, setup exit sequence 

Make OPEN call 

Return if file found 

Test for file not found. Fall 

through if file not there 

Return if some other error 



Byte of dir to be assigned 

Entry assigned. Unrestricted access 

Get drive specification 

Save it in C-reg. 

Test if drive no. was specified 

Jump if unit specified 

Current unit number to C-reg. 



Listing Continued . . . 
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. . . Continued Listing 

4EEF CDFD50 
4EF2 200B 
4EF4 3809 
4EF6 CD2E51 
4EF9 C0 
4EFA CDAB50 
4EFD 280F 
4EFF 3A5451 
4F02 3C 
4F03 2006 
4F05 0C 
4F06 79 
4F07 FE04 
4F09 38E4 
4F0B 3E1A 
4F0D C9 
4F0E 45 
4F0F 3A4E4E 
4F12 77 
4F13 CD4151 
4F16 C0 
4F17 CDC14A 



4F1A 
4F1B 
4F1C 
4F1E 
4F1F 
4F21 
4F22 
4F24 
4F25 
4F27 
4F28 
4F2B 
4F2C 
4F2D 
4F2E 
4F31 
4F32 
4F35 
4F37 
4F38 
4F3A 
4F3B 
4F3D 
4F3E 
4F40 
4F42 
4F43 
4F45 



C0 

E5 

3600 

23 

3600 

23 

3600 

23 

3600 

23 

3AAF4F 

77 

23 

C5 

010F00 

EB 

215D51 

EDB0 

EB 

3600 

23 

3600 

23 

060A 

36FF 

23 

10FB 

CI 



4F46 CDD64A 
4F49 El 
4F4A C0 



CALL 

JR 

JR 

CALL 

RET 

CALL 

JR 

LD 

INC 

JR 

INC 

LD 

CP 

JR 

LD 

RET 

LD 

LD 

LD 

CALL 

RET 

CALL 

RET 

PUSH 

LD 

INC 

LD 

INC 

LD 

INC 

LD 

INC 

LD 

LD 

INC 

PUSH 

LD 

EX 

LD 

LDIR 

EX 

LD 

INC 

LD 

INC 

LD 

LD 

INC 

DJNZ 

POP 

CALL 

POP 

RET 



50FDH 

NZ,4EFFH 

C4EFFH 

512EH 

NZ 

50ABH 

Z,4F0EH 

A, (5154H) 

A 

NZ f 4F0BH 

C 

A f C 

04H 

C4EEFH 

A,1AH 

B f L 

A f (4E4EH) 
(HL),A 
5141H 
NZ 
4AC1H 

NZ 
HL 

(HL) , 00H 
HL 

(HL) ,00H 
HL 

(HL) ,00H 
HL 

(HL) ,00H 
HL 

A, (4FAFH) 
(HL),A 
HL 
BC 

BC,000FH 
DE,HL 
HL,515DH 

DE,HL 

(HL) ,00H 
HL 

(HL) ,00H 

HL 

B,0AH 

(HL) ,0FFH 
HL 

4F40H 
BC 

4AD6H 
HL 

NZ 



Go retest unit 

Jump if drive not present 

Jump if drive not ready 

Read hash table 

Exit if error during HIT read 

Find available slot in HIT 

Go if slot for hash code found 

None left. Get drive spec. 

Was a drive specified 

Jump if yes (directory is full) 

Bump to next drive 

So we can test drive number 

Have all drives been searched 

If not, loop - else return 

space full error status 

Return to caller 

B = Directory sector no 

Get hash code 

Save in HIT 

Write updated HIT 

Ret. if error during write 

Read directory sector that will 

contain file entry 

Exit if error during read 

Save starting addr. of dir entry 

Clear access control 

Bump to byte 2 

Clear overflow pointer 

Bump to byte 3 

Clear reserved byte 

Bump to Byte 4 

Clear EOF offset byte 

Bump to 5th byte 

Get record length 

And save in directory entry 

Bump to 6th byte in directory 

Preserve BC. 



DE = dir addr. for name 
Internal DCB addr. 
Copy file name to dir entry 
HL = Byte 15 of directory sector 
Clear EOF sector number (LSB) 
Bump to 16th byte of dir sector 
Clear EOF sector number (MSB) 
Bump to 17th byte of directory 
Number of bytes to initialize 

Store an FF in GAP field of 
dir entry. Bump to next entry 

loop till all 10 GAPs initialized 
Restore HIT slot index used to 
derive dir. sector #. 
Write updated directory sector 
Restore directory entry addr. to HL 
Return if error 



Listing Continued . . 
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. . . Continued Listing 
4F4B CDA74P 
4F4E 37 


CALL 
SCF 


4F4F C9 


RET 



4FA7H 



Go initialize DCB in user's area 
Signal file not previously opened 

Return to caller 



5.3 Request Code 30 (CREATE OVERFLOW ENTRY). 

Overflow directory entries are created when the number of GAP's assigned to a 
file exceeds the GAP area in the directory entry for the file. There is no limit to the 
number of overflow entries that can be assigned. The GAP area for primary and 
overflow directory entries is identical. 

Requests to create an overflow entry are made automatically when the system 
detects that the GAP area in the directory is full. This situation can only occur 
during a write operation. There is no way a user can make an explicit call to 
create overflow entries. 

The code for assigning overflow entries begins at 4F50. It is similar to both the 
OPEN and INIT processing previously described, and uses many of the 
subroutines called by those functions. There is one restriction which applies to 
overflow assignment that was not necessarily true with OPEN and INIT. The 
overflow sector must be assigned on the diskette where the file resides. The nearest 
parallel with OPEN and INIT processing would be the case where the call 
specified a particular drive. 

The procedure used for assigning an overflow directory entry is as follows: 

1. Read HIT sector from drive where file resides and find an available 
index. 

2. Assign the index (use hash code for primary index), and rewrite the 
updated HIT. This is done for bookkeeping purposes to indicate a 
directory entry has been used. 

3. Read the directory sector associated with index assigned at Step 2. 

4. Initialize the entry in the directory sector as an overflow entry. Store 
pointer to previous entry and zero GAP area. 

5. Write updated directory sector. 

6. Read previous entry (usually the primary, but not necessarily), and 
modify entry to point to overflow entry. 

7. Rewrite the updated previous directory entry. 

Beginning at 4F50, the drive where the file resides is loaded into the C register. 
This register will be preserved throughout the overflow processing. At 4F53 a 
subroutine at 512E is called to read the HIT sector. This subroutine is discussed 
in detail in Section 5.1. 

Following the read of the HIT sector, the hash index for the primary entry is 
loaded into the A register, and the subroutine at 50B6 is called to find the next 
available index. 50B6 is an advanced entry point into the subroutine at 50AB, 
which is discussed in Section 5.1. 
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On return, the L register contains the next available index into the HIT. This 
index is copied to the B register, where it will be used for sector number 
computations by nucleus subroutines called to read and write the directory sector. 
It is also moved to 4AF2, where it will be copied into the last byte of the primary 
directory entry (this index doubles as a pointer to the overflow directory entry). 

Next, at 4F65, the index for the primary entry is formed in the DE register, so 
that the hash code can be loaded at 4F69. The hash code loaded is then stored at 
the new index by the instruction at 4F6A. Notice that the same hash code is stored 
in the HIT twice. One index points to a primary directory; the other one points to 
an overflow directory. 

Continuing on, at 4F6B the updated HIT sector is rewritten (a hash index was 

assigned), and at4F6F the nucleus subroutine is called to read the directory sector 
for the overflow entry. Upon return, the HL register contains the address of the entry 
in the directory sector buffer. 

The entry is initialized as an overflow entry at 4F73; the hash index for the 
primary entry is moved to the second byte of the overflow entry. The name and 
password areas are cleared to zeros, and the GAP area is initialized to FF's. After 
initialization, a nucleus subroutine at 4AD6 is called to rewrite the initialized 
overflow entry. 

Next, at 4F92, the hash index for the primary entry is retrieved from a byte in 
the nucleus, and the primary entry is read. The entry is then updated to contain a 
FE in the next to last byte, and the hash index for the overflow entry in the last 
byte. The modified primary entry is then rewritten and control returns to the 
SYS2 caller. 

Practices such as these insure that the system will always be a single user system. 
Consider what would happen, for example, if TRSDOS was a multi-user system 
and one user was de-scheduled in SYS2 before he could retrieve the sector number 
from SYSO. Now, suppose another user is scheduled, and a call is made which 
causes the sector number to be modified. When the first user is re-scheduled, the 
sector number he was expecting has been changed. There are a number of ways to 
avoid this problem, the common one being to inhibit scheduling or interrupts, but 
a better solution is to avoid these practices. Below is the code used to create 
overflow entries. 



Construct an Overflow Directory Entry 



Figure 5.15 SYS2 Code From 4F50 to 4FA6 
* 
* 
* 

* 1. Find an availaole slot in HIT sector 

* 2. Move file hash code to HIT slot located above 
3. Write updated HIT 

* 4. Read directory sector for HIT slot assigned 
5. Initialize directory sector entry for HIT assigned 

* in step 1, as an overflow entry 

* 6. Write directory sector containing overflow entry 
7. Read directory sector containing primary entry 

* 8. Update primary entry with overflow flag and pointer 

* 9. Write updated primary entry 

* Listing Continued . 
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* 



* 
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. . . Continued Listing 

4F50 DD4E06 
4F53 CD2E51 
4F56 C0 
4F57 DD7E07 
4F5A CDB65 
4F5D 3E1E 
4F5F C0 
4F60 45 
4F61 7D 
4F62 32A24F 
4F65 54 
4F66 DD5E07 



4F69 
4F6A 
4F6B 
4F6E 
4F6F 
4F72 
4F73 
4F75 
4F76 
4F77 
4F7A 
4F7B 
4F7C 
4F7E 
4F80 
4F81 
4F83 
4F84 
4F86 
4F88 
4F89 
4F8B 
4F8C 
4F8D 
4F8E 

4F91 
4F92 
4F95 
4F96 
4F99 
4F9A 
4F9B 

4F9D 
4F9E 
4FA0 
4FA1 
4FA3 
4FA6 



1A 

77 

CD4151 

C0 

CDC14A 

C0 

3690 

2C 

C5 

3ABE4A 

77 

2C 

0614 

3600 

2C 

10FB 

E5 

060A 

36FF 

2C 

10FB 

Dl 

13 

CI 

CDD64A 

C0 

3ABE4A 

47 

CDC14A 

C0 

7D 

C61E 

6F 

36FE 

2C 

3600 

CDD64A 

C9 



LD C f (IX+06H) 

CALL 512EH 

RET NZ 

LD A, (IX+07H) 

CALL 50B6H 

LD A,1EH 

RET NZ 

LD B,L 

LD A,L 

LD (4FA2H) , A 

LD D,H 

LD E,(IX+07H) 

LD A r (DE) 

LD (HL),A 

CALL 5141H 

RET NZ 

CALL 4AC1H 

RET NZ 

LD (HL) f 90H 

INC L 

PUSH BC 

LD A f (4ABEH) 

LD (HL) , A 

INC L 

LD B f 14H 

LD (HL),00H 

INC L 

DJNZ 4F7EH 

PUSH HL 

LD B, 0AH 

LD (HL),0FFH 

INC L 

DJNZ 4F86H 

POP DE 

INC DE 

POP BC 

CALL 4AD6H 

RET NZ 

LD A, (4ABEH) 

LD B f A 

CALL 4AC1H 

RET NZ 

LD A,L 

ADD A,1EH 

LD L,A 

LD (HL) f 0FEH 

INC L 

LD (HL) f 00H 

CALL 4AD6H 

RET 



C = drive number 

Read HIT 

Return if error during read 

A = Dir sector offset for this file 

Find an available hole in HIT 

Error code for directory full 

Return w/error if hash table full 

B = Next avail, loc. in HIT 

Move it to A-reg. 

Save address of overflow entry 

D = MSB addr. of HIT buffer 

E = LSB addr. of HIT buffer 

(index for this file) 

Get hash code for file from HIT 

Copy it to overflow entry 

Write updated HIT 

Return if error during WRITE 

Read dir sector for HIT slot assigned 

Ret if directory read error 

Flag dir entry as assigned/overflow 

Bump to 2nd byte of dir. entry 

Preserve unit number (C-reg.) 

A = dir sector index for this file 

Save as 2nd byte of overflow entry 

HL = 3rd byte of overflow entry 

B = no. of bytes to zero 

Zero a byte 

Bump to next byte of overflow entry 

Loop till 20 bytes cleared 

Save addr. of 1st GAP in entry 

Number of bytes to initialize 

Initialize 

Bump to next byte 

Loop till all GAP'S initialized 

DE = addr. of 1st GAP in entry 

Bump to number of grans (17th byte) 

Restore unit number to C-reg. 

Write updated directory sector 

(contains overflow entry) 

Exit if error during write 

Get sector number for primary entry 

Move to B for nucleus read routine 

Read primary entry sector 

Exit if error during read 

HL = Addr of primary entry in sector 

Position to 1st byte of 5th GAP 

HL = Directory entry (IE) 
Signal an overflow entry exists 
Bump to 2nd byte of 5th GAP 
Save pointer to overflow entry 
Write updated primary entry 
Return to caller 
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5.4 Description of Subroutine at 5027 

This subroutine is called during OPEN processing to examine the file name and 
separate its components. The name can consist of: an 8-character file name, a 3 
character extension, an 8-character password, and a 1-character drive 
specification. All components, except for the file name are optional. 

Internal buffers in SYS2 are used to hold the file name components. An 8-byte 
buffer at515Dholds the file name; an8-byte buffer at5155 holds the password; a3- 
byte buffer at5165 holds the extension; and the drive specification is kept at5154. 

The code from 506 F to 5076 converts an ASCII digit to binary. This code is called 
to process the drive number if one has been specified. 

Beginning at 5041, a series of calls to 5081 is made to examine the file name 
and copy the components to their internal buffers. The subroutine at 5081 is 
called with a destination buffer address in the DE register, a source buffer address 
in the HL register, and the maximum number of characters to copy in the B 
register. Before a character is moved from the source to the destination address, it 
is verified as a letter A - Z, or a digit - 9. Any other character is considered a 
terminator and causes control to be returned to the caller. If no illegal characters 
are detected, control is returned to the caller when the number of characters 
specified in the B register have been copied. When control is returned to the caller, 
the A register contains the last character loaded from source address. 

Following the call to 5081 to copy the file name, the B register is compared to 
8. This is a simple test to determine if any characters were copied. If none were, an 
error has occurred, and control is returned to the caller. 

If a file name was copied, the terminating character in the A register is compared 
to the various delimiters (/, :, .), and depending on which one is found, control goes 
to 5055 (get extension), 5063 (get password), or 506F (get drive specifications). 
After the processing for any of the file name options, the terminating character is 
compared to the delimiter for the remaining options. Notice that because of the 
way this code is structured, options must occur in a specific order; they cannot be 
intermixed or occur in random order. 

The code from 506F to 5076 converts an ASCII digit to binary. This code is 
called to process the drive number if one has been specified. 

Control returns to the caller when an illegal character is detected, or all 
components of the file name have been processed. The code used for this 
subroutine follows: 

Figure 5.16 SYS2 Code From 5027 to 5080 
* 

* — Copy caller's file name to internal DCB. Validate name — 

* 

5027 060B LD B,0BH Number of chars, to copy 
5029 115D51 LD DE,515DH Internal DCB address 

502C 3E20 LD A f 20H ASCII blank 

Listing Continued . . . 
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. . . Continued Listing 






502E 


12 


LD 


(DE),A 


502F 


13 


INC 


DE 


5030 


10FC 


DJNZ 


502EH 


5032 


0608 


LD 


B,08H 


5034 


115551 


LD 


DE r 5155H 


5037 


12 


LD 


(DE),A 


5038 


13 


INC 


DE 


5039 


10FC 


DJNZ 


5037H 


503B 


3EFF 


LD 


A,0FFH 


503D 


325451 


LD 


(5154H) , A 


5040 


115D51 


LD 


DE,515DH 


5043 


0608 


LD 


B, 08H 


5045 


CD8150 


CALL 


5081H 


5048 


4F 


LD 


C,A 


5049 


78 


LD 


A,B 


504A 


FE08 


CP 


08H 


504C 


2004 


JR 


NZ f 5052H 


504E 


3E13 


LD 


A,13H 


5050 


B7 


OR 


A 


5051 


C9 


RET 




5052 


79 


LD 


A,C 


5053 


FE2F 


CP 


2FH 


5055 


2008 


JR 


NZ,505FH 


5057 


116551 


LD 


DE,5165H 


505A 


0603 


LD 


B,03H 


505C 


CD8150 


CALL 


5081H 


505F 


FE2E 


CP 


2 EH 


5061 


2008 


JR 


NZ r 506BH 


5063 


115551 


LD 


DE,5155H 


5066 


0608 


LD 


B, 08H 


5068 


CD8150 


CALL 


5081H 


506B 


FE3A 


CP 


3 AH 


506D 


2010 


JR 


NZ,507FH 


506F 


7E 


LD 


A, (HL) 


5070 


D630 


SUB 


30H 


5072 


3804 


JR 


C5078H 


5074 


FE04 


CP 


04H 


5076 


3804 


JR 


C,507CH 


5078 


3E20 


LD 


A,20H 


507A 


B7 


OR 


A 


507B 


C9 


RET 




507C 


325451 


LD 


(5154H) ,A 


507F 


AF 


XOR 


A 


5080 


C9 


RET 





Move blank to internal DCB 

Bump to next internal DCB addr. 

Loop till internal DCB blank filled 

Max. number of chars in file name 

Address of password buffer 

Blank fill password buffer 

One byte at a time 

Loop till buffer blank filled 

Signal no drive spec (default) 

(Reversed if drive specified) 

Addr. of Internal DCB 

No. of chars, to move 

Move file name to buffer at 515D 

C = last char. in name 

A = 8 - number of chars, copied 

If = 8, then no. chars, were copied 

Jump if file name was legitimate 

Error code for illegal char. 

Set status flags 

And return to caller 

Get terminating character 

Test for / 

Jump if no extension 

Addr of ext. area in internal DCB 

Max. number of chars, in extension 

Copy extension 

Was terminating char, a . 

(password follows) 

Jump if not 

Addr of internal password buffer 

Maximum no. of chars, in password 

Copy password to internal PW buffer 

Was terminating char, a : (drive 

specification follows) 

Jump if no 

Get drive number 

ASCII to binary 

Jump if drive number not a digit 

Test for drive no. greater than 3 

Jump if drive no. in range(0-3) 

Error code for illegal drive no. 

Set status flags for error. 

Return to caller 

Save drive specification 

Signal good status (no error) 

Return to caller 
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5.5 Hash Code Computation 

The hash code subroutine begins at 509B and ends at 50AA. It is a 
straightforward hash that produces a reasonably random value between 01 and 
FF. It hashes 11 characters, regardless of the length of the file name. 

There are no error exits from this subroutine. Control is returned to the caller 
with the hash code in the A register. Following is the code used for computing hash 
values: 



Figure 5.17 SYS2 Code From 509B to 50AA 



* 
* 
* 
* 
* 

509B 
509D 
509F 
50A0 
50A1 
50A2 
50 A3 
50A4 



Compute hash code. Exclusive 
with the following character, 
as current character. 



060B 

0E00 

7E 

23 

A9 

07 

4F 

10F9 



50A6 79 
50A7 B7 
50A8 C0 
50A9 3C 
50AA C9 



LD 


B,0BH 


LD 


C,00H 


LD 


A, (HL) 


INC 


HL 


XOR 


C 


RLCA 




LD 


C,A 


DJNZ 


509FH 


LD 


A,C 


OR 


A 


RET 


NZ 


INC 


A 


RET 





OR each character of file name 
Multiply result by 2 and use 



Iteration count 

Initialize a mark value 

Get a char from file name 
Bump to next char, in name 
Exclusive OR with floating mask 
Result times 2 
becomes new floating mask 
Loop till 11 characters of 
file name masked 

A = Final mask value 

Set status flags 

OK if non-zero 

Else force a value of 1 

and exit 
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6.0 SYS3/SYS 

SYS3/SYS is a continuation of the TRSDOS file management system. It is 
called from the nucleus in response to CLOSE and KILL requests. 

SYS3 begins at 4E00 and ends at 5085. The locations 5086 through 50FF 
contain FF's. The reason for this initialization is not clear. No part of SYS3 uses 
this region. The entry point for SYS3 is 4E00. 

Before branching to the CLOSE or KILL code, SYS3 performs several tests on 
both the DCB and the sector buffer addresses to insure they are within acceptable 
limits. Additional tests are made to verify the drive number in the DCB is valid and 
that the first track number is less than or equal to 35. If any of these tests fail, the 
operation is aborted, and an error code of 26 (file not opened) is returned. 

The entry code at 4E00 begins by saving the DCB address, buffer address, and 
request code (IX, HL, and AF registers, respectively). Immediately after saving 
these registers, three tests are performed on the DCB. The first test, which begins 
at 4E04, verifies the DCB is RAM resident by comparing the most significant 
byte of its address to40(RAM begins at 4000). The next two tests insure the DCB 
address is below the end of memory (don't laugh, it could happen), and that the file 
has been opened. The following code is used for these operations: 



F 


igure 6.1 


SYS.'i Code From 


■l EDO to 4 El 4 




4E00 


DDE5 




PUSH 


IX 


Save DCB address 


4E02 


E5 




PUSH 


HL 


Save buffer address 


4B03 
* 


F5 




PUSH 


AF 


Save request code 


* Validate 


add 


Iress of DCB and buffer. Validate drive 


* number, HIT 
* 


index and 


beginning 


track number 


4E04 


7A 




LD 


A,D 


A = MSB of DCB addr. 


4E05 


FE40 




CP 


40H 


Is DCB in system area? 


4E07 


385C 




JR 


C,4E65H 


Error if yes 



Listing Continued . 
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. . . Continued Listing 

4E09 214A40 LD HL,404AH 

4E0C BE CP (HL) 

4E0D 2802 JR Z,4E11H 

4E0F 3054 JR NC f 4E65H 

4E11 1A LD A, (DE) 

4E12 CB7F BIT 07H,A 

4E14 284F JR Z,4E65H 



Addr. of MSB of mem, size 

Is DCB at end of memory? 

Error if yes 

Error if DCB addr. above mem. size 

Load 1st byte of DCB 

Is file open 

Error if not 



After these tests have been performed, the DCB address is copied from the DE 
register to the IX register by the intructions at 4E16 - 4E17. Then three more 
tests are performed. The first two test the buffer address, insuring it is RAM 
resident and below the end of memory. The third test verifies that the drive 
number is between zero and three. The following code is used for these tests: 



Figure 6.2 


SYS3 Code From 4EI6 to 4E2E 


4E16 D5 


PUSH DE 


4E17 DDE1 


POP IX 


4E19 DD7E04 


LD A, (IX+04H) 


4E1C FE40 


CP 40H 


4E1E 3845 


JR C,4E65H 


4E20 BE 


CP (HL) 


4E21 2802 


JR Z,4E25H 


4E23 3040 


JR NC r 4E65H 


4E25 DD7E06 


LD A, (IX+06H) 


4E28 FE00 


CP 00H 


4E2A 3839 


JR C,4E65H 


4E2C FE04 


CP 04H 


4E2E 3035 


JR NC,4E65H 



DCB addr. to stack 

Then load it into IX 

A « MSB of buffer addr. 

Is buffer in system area 

Error if yes 

Is buffer start at end of memory 

Error if so, or if buffer 

start above end of memory 

Load drive number 

Test for illegal drive number 

Error if drive out of range 

Compare with max. drive number 

Error if drive out of range 



After the buffer address has been validated, furthur tests on the DCB 
parameters are performed. Beginning at 4E30, the unused bits of the HIT index 
are tested to insure they are zero. Next several tests are applied to the track 
number in the first GAP. The first test checks for operations against track 0, 
granule 0. This appears to be a precaution against the accidental KILL'ing of the 
boot loader; however, since it is applied to the first GAP only, the test is 
incomplete. 

The second test compares the track number against the maximum number of 
tracks on the drive. This is an indirect system limitation inasmuch as it assumes all 
drives have the same number of tracks. As with the first test, it is only applied to 
the first GAP. 
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Following these tests, the SYS3 request code option is examined, and control is 
passed to the requested function. The SYS3 request code options are: 



Figure 6.3 Request Code Options 



REQUEST CODE OPTIONS 



FUNCTION 



10 
20 



CLOSE 
KILL 



The following code is used for the DCB tests described above. The code at 4E65 
is the exit path taken if any errors are detected with the DCB paramters, the DCB 
address or the buffer address. 



Figure 6.4 SYS3 Code From 4E30 to 4E6C 



4E30 
4E33 
4E35 
4E37 
4E39 
4E3B 
4E3E 
4E40 
4E42 
4E45 
4E47 

4E49 

4E4C 

4E4E 

4E50 

4E52 
* 

* 

* 

* 

4E54 Fl 



DD7E07 

CB67 

202E 

CB5F 

202A 

DD7E0E 

FE00 

200A 

DD7E0F 

FE20 

381C 

DD7E0E 

FEFF 

2804 

FE23 

3011 



LD A, (IX+07H) 

BIT 04H f A 

JR NZ,4E65H 

BIT 03H,A 

JR NZ f 4E65H 

LD A, (IX+0EH) 

CP 00H 

JR NZ f 4E4CH 

LD A f (IX+0FH) 

CP 20H 

JR C,4E65H 

LD A, (IX+0EH) 

CP 0FFH 

JR Z,4E54H 

CP 23H 

JR NC,4E65H 



Parameter validation complete, 
CLOSE or KILL option. 



Load HIT index 

Test unused bit (should be 0) 

Error if on (HIT) = 10) 

Test unused bit (should be 0) 

Error if on (HIT) = 08) 

Load track number 1st GAP 

Are any tracks assigned 

Jump if yes 

No, fetch gran count (may be track 0) 

If track f must be 2nd granule 

Error if 1st granule (track , 

sector reserved for system use) 

Reload track number 1st GAP 

Test for no tracks assigned 

Jump if none assigned 

Greater than max. no. of tracks 

Error if track greater than 34 

Test for 



POP 



AF 



Restore request code 



Listing Continued . . . 
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. . . Continued Listing 






4E55 El 


POP 


HL 


4E56 DDE1 


POP 


IX 


4E58 E670 


AND 


70H 


4E5A PE10 


CP 


10H 


4E5C CA6D4E 


JP 


Z,4E6DH 


4E5F FE20 


CP 


20H 


4E61 CAD04F 


JP 


Z r 4FD0H 


4E64 C9 


RET 




4E65 Fl 


POP 


AF 


4E66 El 


POP 


HL 


4E67 DDE1 


POP 


IX 


4E69 3E26 


LD 


A,26H 


4E6B B7 


OR 


A 


4E6C C9 


RET 





Restore buffer address 

Restore DCB address 

Isolate option code 

Test for CLOSE request 

Jump if CLOSE call 

Test for KILL request 

Jump if KILL call 

Neither, ignore request 

Various errors. Restore req. code 

Buffer addr. 

And DCB addr. 

Error code for file not opened 

Set status flags 

Return with error status 



6.1 Close Processing 

Code for CLOSE processing begins at 4E6D and ends at 4FCF. Except for calls 
to subroutines in the nucleus, the code is in-line and has very few loops. 

Functions to be performed during a CLOSE operation are summarized below. 

1. Flush the sector buffer to disk if the file was opened for logical I/O 
operations. 

2. Read the primary directory entry and update the EOF pointers to 
point to the current end of file, as indicated by the DCB. 

3. Compare the number of granules in the directory for the file to the 
number of granules in the DCB. If the file has grown smaller (the 
granule count in the DCB is less than the granule count in the 
directory sector), release the granules assigned to unused GAP's. 

4. Reconstruct the filename, extension, and drive number in the DCB. 

Step one uses a subroutine in the nucleus to flush the sector buffer. The 
following calling sequence is used: 



Figure 6.5 SYS3 Code From 4E6D to 4E71 



* 
* 



CLOSE Processing 



4E6D CD9248 
4E70 C0 
4E71 CD7848 
4E74 C0 



CALL 
RET 
CALL 
RET 



4892H 

NZ 

4878H 



Save caller's registers 
Error exit if file not open 
Flush sector buffer if necessary 
Exit if error while purging buffer 
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The second step requires slighly more code than step one, some of which is 
executed conditionally. There are two major sections of code in step two. 

The first reads the directory entry into the sector buffer at 4200 and compares 
the EOF pointer values in the directory to those in the DCB. Since the DCB may 
be considered to be the most recently modified data structure, it is assumed to be 
correct. If there is any difference between the directory and DCB pointers, those 
from the DCB are copied to the directory, and the updated directory sector is 
rewritten to disk. The following code is used: 



F 


igure 6.6 


SYS3 Code From 


IE75 to 4EB5 


4E75 


DD46 07 


LD 


B, (IX+07H) 


4E78 


DD4E06 


LD 


C, (IX+06H) 


4E7B 


CDC14A 


CALL 


4AC1H 


4E7E 


C0 


RET 


NZ 


4E7F 


3E03 


LD 


A,03H 


4E81 


85 


ADD 


A,L 


4E82 


6F 


LD 


L, A 


4E83 


E5 


PUSH 


HL 


4E84 


DD7E08 


LD 


A f (IX+08H) 


4E87 


BE 


CP 


(HL) 


4E88 


2014 


JR 


NZ,4E9EH 


4E8A 


3E11 


LD 


A f llH 


4E8C 


85 


ADD 


A,L 


4E8D 


6F 


LD 


L, A 


4E8E 


DD7E0C 


LD 


A, (IX+0CH) 


4E91 


BE 


CP 


(HL) 


4E92 


200A 


JR 


NZ,4E9EH 


4E94 


2C 


INC 


L 


4E95 


DD7E0D 


LD 


A f (IX+0DH) 


4E98 


BE 


CP 


(HL) 


4E99 


2003 


JR 


NZ r 4E9EH 


4E9B 


Fl 


POP 


AF 


4E9C 


1818 


JR 


4EB6H 


4E9E 


El 


POP 


HL 


4E9F 


DD7E08 


LD 


A, (IX+08H) 


4EA2 


77 


LD 


(HL) r A 


4EA3 


3E11 


LD 


A,11H 


4EA5 


85 


ADD 


A,L 


4EA6 


6F 


LD 


L,A 


4EA7 


DD7E0C 


LD 


A, (IX+0CH) 


4EAA 


77 


LD 


(HL) ,A 


4EAB 


2C 


INC 


L 



B = HIT Index (Dir sector no.) 

C = Unit 

Read directory entry into 4D00. 

HL = addr. of entry 

Exit if error during read 

Offset to EOF byte 

Add offset to addr. of entry 

Reform addr. 

Save addr. of EOF byte 

A = EOF offset from DCB 

DCB EOF = Dir entry EOF? 

No, go update dir entry EOF 

Inc to EOF sector no. in directory 

Add to current directory address 

Reform directory address 

LSB of EOF sector from DCB 

Compare to LSB of EOF sector 

from directory 

If unequal, update dir EOF sector # 

Bump to MSB of EOF sector # in dir 

MSB of EOF sector from DCB 

Compare to MSB of EOF sector in dir 

If unequal, update dir EOF sector # 

Clear stack 

Go compute total no. of grans 

Restore base address of 

directory entry + 3 

Load EOF byte offset from DCB 

And copy to directory 

Offset to EOF sector no. in dir 

Add to current directory address 

And reform address in HL 

Fetch LSB of ending sector 

number from DCB 

Move it to directory entry 

Bump to addr. of MSB of ending 

sector in directory 

Listing Continued . . . 
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4EAC 


DD7E0D 


LD 


A r (IX+0DH) 


4EAF 


77 


LD 


(HL) , A 


4EB0 


E5 


PUSH 


HL 


4EB1 


CDD64A 


CALL 


4AD6H 


4EB4 


El 


POP 


HL 


4EB5 


C0 


RET 


NZ 



Fetch MSB of ending sector no. 

And copy to directory 

Save current directory address 

Write uupdated directory entry 

Restore dir. addr. 

Exit if error during write 



The second major portion of code for step two computes the total number of 
granules assigned to the file by summing the graunlue counts from the GAP's in 
the directory. This code can get a little involved since it must handle overflow 
directory entries (entries which hold additional GAP's). The code for this 
operation begins at 4EB6 by positioning the address in the HL register to the first 
GAP, and clearing the accumulator used for the granule totals. 

A loop from 4EBA - 4ED7 scans the GAP's, accumulating the total granule 
count. The loop terminates when an end of GAP indicator (FF) is found. 

If an overflow GAP indicator (FE) is encountered, the overflow directory entry 
is read by calling a nucleus subroutine. After the overflow entry has been read, the 
main loop is re-entered, and the scanning continues. Following is the code used for 
this step: 



Figure 6.7 SYS3 Code From 4 EBB to 4ED7 

4EB6 2C INC L Bump to track number for 1st GAP 

4EB7 110000 LD DE,0000H Zero storage for total granules 

4EBA 7E LD A, (HL) Fetch starting track no. from a GAP 

4EBB 2C INC L Bump pointer to granule count 

4EBC FEFE CP 0FEH Test for overflow or end of GAPS 

4EBE 300C JR NC,4ECCH Jump if overflow or end of GAPS 

4EC0 7E LD A f (HL) A=No. of granules 

4EC1 2C INC L Bump to 1st byte of next GAP 

4EC2 E61F AND 1FH Isolate count of granules 

4EC4 3C INC A Gives true value 

4EC5 83 ADD A,E Accumulate total no. of grans in DE 

4EC6 5F LD E,A LSB of granule total 

4EC7 30F1 JR NC,4EBAH Jump if LSB not over 255 yet 

4EC9 14 INC D If it is, bump MSB 

4ECA 18EE JR 4EBAH Loop till all granules summed 

4ECC 200B JR NZ f 4ED9H Jump if end of GAPS reached 

4ECE 46 LD B, (HL) Load HIT index for dir overflow 

4ECF CDC14A CALL 4AC1H Read overflow directory entry 

4ED2 C0 RET NZ Exit if error during read 

4ED3 7D LD A,L Get LSB of directory address 

4ED4 C616 ADD A,16H Then add 16 to reach GAP address 

4ED6 6F LD L f A Reform addr. of GAPS in HL 

4ED7 18E1 JR 4EBAH Scan till end of GAPS reached 

Listing Continued . . . 
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. . . Continued Listing 






4EC9 14 


INC 


D 


4ECA 18EE 


JR 


4EBAH 


4ECC 200B 


JR 


NZ,4ED9H 


4ECE 46 


LD 


B, (HL) 


4ECF CDC14A 


CALL 


4AC1H 


4ED2 C0 


RET 


NZ 


4ED3 7D 


LD 


A r L 


4ED4 C616 


ADD 


A,16H 


4ED6 6F 


LD 


L,A 


4ED7 18E1 


JR 


4EBAH 



It has, bump MSB 

Loop till all granules summed 

Jump if end of GAPS reached 

Load HIT index for overflow 

directory entry 

Read overflow directory 

Exit if error during read 

Get LSB of directory address 

Then add 16 to get to the GAP 

address 

Reform addr. of GAPS in HL 

And continue scan till end of 

GAPS reached 



The third step represents the largest amount of code for CLOSE processing. As 
with the code in step two, portions of this code are executed conditionally. 

The code in step three can be divided into two sections. The first computes the 
total number of granules currently assigned to the file by dividing the number of 
records in the file (fetched from the DCB) by five (5 = the number of sectors in a 
granule). This granule count is then compared to the granule count computed in step 
two using the directory GAP's. If the DCB granule count is smaller than the directory 
granule count, the directory entry for the file contains old GAP's. The old GAP's will 
be released in section two of step three. Following is the code used for the first section 
of step three: 



Figure 6.8 SYS3 Code From 4ED9 to 4EEF 



* 

* 
* 
* 

* 
* 

* 

4ED9 
4 EDA 
4EDD 
4EE0 



Test for change in file size using following method: 
Directory file size (granule total from directory 
GAP's) (minus) true file size (granule total from 
ending sector in *DCB/5) 

yields: 

(Minus, if file has increased) 
(zero, if file size is unchanged) 
(positive, if file has decreased) 



E5 PUSH HL 

DD6E0C LD L, (IX+0CH) 

DD660D LD H,(IX+0DH) 

3E05 LD A,05H 



Save current addr in dir. End of GAPS 

L = LSB of number of records 

H = MSB of number of records 

A = Divisor T . . „ . 

Listing Continued . . . 
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. . . Continued Listing 






4EE2 


CD844B 


CALL 


4B84H 


4EE5 


23 


INC 


HL 


4EE6 


AF 


XOR 


A 


4EE7 


EB 


EX 


DE,HL 


4EE8 


ED52 


SBC 


HL,DE 


4EEA 


EB 


EX 


DE,HL 


4EEB 


El 


POP 


HL 


4EEC 


CA7B4F 


JP 


Z,4F7BH 


4EEF 


DA7B4F 


JP 


C,4F7BH 



Modulo divide HL by 5 

Quotient + 1 

(no. of grans = true size) 

Clear carry 

HL = # of granules in directory. 

DE = true file size 

Compare true file size (by record 

count in DCB) to directory file 

size (by GAP's). Save diff. in DE 

Restore current addr. in 

directory. End of GAPS 

If dir gran count is equal to or 

greater, don't update directory 



Section two of step three is the loop bounded by 4F01 through 4F6D. Prior to 
entering this section of code, the GAT sector is read into the system buffer at 
4200, and the HIT sector is read into a local buffer at 5100. 

The GAT sector is read because as the old GAPs are released from the directory 
entry, the last granule associated with the GAP released has its entry in the GAT 
cleared. The HIT sector read is necessary because as the GAP entries in a directory 
entry are released, it is possible that an entire directory entry will be released (this 
should only happen with overflow entries). 

Careful analysis of this code reveals several serious flaws in its implementation. 
First, the mechanics are wrong. The code from 4F07 - 4F29 clears the bit in the 
GAT for the GAP owning the last granule supposedly not in use. One problem with 
this code is that the granule could have been re-assigned to another file, for 
example, and therefore should not be released. A second problem with this code is 
that it does not account for multiple granules. Consider a GAP for track 20 with 4 
granules assigned. That means track 20, granules and 1, and track 21, granules 
and 1, have been assigned consecutively. This code would clear the availability flag 
for track 21, granule 1, only. Clearly the intent was to make available the granules 
for tracks 20 and 21. 

Considering the bug in the logic regarding re-assigned granules, this subsequent 
bug might be considered a stroke of luck. After all, if the code worked correctly, 
four re-assigned granules might incorrectly be flagged as available instead of one. 

A second problem connected with the incorrect handling of the granule count on 
old GAP's affects the loop control. The code in the first section computed the 
difference in the number of granules between the directory and the DCB and left 
it in the DE register. After processing one GAP (incorrectly) the E register is 
decremented by one. It should have been decremented by the number of granules 
in the old GAP passed in the directory. This can lead to exhausting the GAP's 
prematurely in a directory entry. 
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One saving grace in this code is that it is almost impossible to generate the 
conditions which will cause it to be executed. To cause this code to be executed one 
must, via an assembly language program, modify the record count in the DCB. 
Since there is no good reason for doing this, the chances of encountering this bug 
are slim. 



Following is the code for the second section of step three. 



Figure 6.9 


SYS3 Code From 


4EF2 to4F7A 


4EF2 


2D 


DEC 


L 


4EF3 


2D 


DEC 


L 


4EF4 


E5 


PUSH 


HL 


4EF5 


D5 


PUSH 


DE 


4EF6 


CDF04A 


CALL 


4AF0H 


4EF9 


2003 


JR 


NZ,4EFEH 


4EFB 


CD6850 


CALL 


5068H 


4EFE 


Dl 


POP 


DE 


4EFF 


El 


POP 


HL 


4F00 


C0 


RET 


NZ 


4F01 


7B 


LD 


A,E 


4F02 


FE00 


CP 


00H 


4F04 


2869 


JR 


Z,4F6FH 


4F06 


D5 


PUSH 


DE 


4F07 


7E 


LD 


A f (HL) 


4F08 


E6E0 


AND 


0E0H 


4F0A 


07 


RLCA 




4F0B 


07 


RLCA 




4F0C 


07 


RLCA 




4F0D 


5F 


LD 


E,A 


4F0E 


7E 


LD 


A, (HL) 


4F0F 


E61F 


AND 


1FH 


4F11 


83 


ADD 


A,E 


4F12 


5F 


LD 


E,A 


4F13 


E6FE 


AND 


0FEH 


4F15 


0F 


RRCA 




4F16 


32224F 


LD 


(4F22H) , A 


4F19 


7B 


LD 


A f E 



Backspace to granule count 

For last GAP 

Save addr of last good GAP in dir 

Save granule difference 

Read GAT sector into 4D00 

Jump if error during read. Skip 

read into 5100 

Read HIT sector into 5100 

Restore granule difference 

Restore addr of last GAP in dir 

Exit if GAT read error either time 

Load LSB of granule difference 

Test if done 

Jump if done 

Save current granule difference 

Fetch granule count from last 

GAP in directory 

Isolate starting gran no. (bit 5) 

Shift into low order of A register 

Gives if file starts on sector 

of first track, or 1 if file begins 

on sector 5 of first track 

Refetch gran count from last GAP 

Isolate no. of assigned grans 

Add offset for 1st gran, save in E 

Adds if starting sect # is 

Adds 1 if starting sect # is 5 

Clear bit 0, so division will 

not affect carry 

Divide granule count by 2 

And save number of tracks 

Restore original gran count & offset 



Listing Continued . . . 
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4F1A E601 
* 



AND 



01H 



Isolate Bit 



* 
* 
* 
* 
* 

* 

* 
* 

* 
* 



Construct mask for clearing bit in GAT for last gran assigned 
Use following rules: 



# of sectors in 
granule count 


sector 



offset 
1 


EVEN 


FE 


FD 


ODD 


FD 


FE 



4F1C 
4F1D 
4F1E 

4F1F 
4F20 
4F21 

4F23 
4F24 
4F26 
4F27 

4F28 
4F29 

* 

* 

* 
* 
* 

4F2A 
4F2B 

4F2C 
4F2D 
4F2E 
4F2F 
4F31 

4F32 
4F34 
4F36 
4F37 
4F39 
4F3A 
4F3B 
4F3D 
4F3F 



3C 

2F 

F5 

2B 
7E 
C600 

EB 

264D 
6F 
Fl 

A6 
77 



INC 
CPL 
PUSH 


A 
AF 


DEC 

LD 

ADD 


HL 

A, (HL) 

A,00H 


EX 
LD 
LD 
POP 


DE f HL 
H f 4DH 
L,A 
AF 


AND 
LD 


(HL) 
(HL),A 



Then add 1 and compliment 

to generate a mark for clearing 

the last assigned granule in 

the GAT. Save mask 

Backspace GAP pointer to track no. 

Fetch starting track number for GAP 

Add no. of consecutively assigned 

tracks. Gives ending track # 

Save directory GAP addr. in DE 

Form address of GAT entry for 

ending track in HL 

Restore mask used to clear last 

granule assigned 

Clear bit for last gran assigned 

And restore byte with cleared 

bit to GAT buffer 



Look for GAPS which have no granules assigned. When one 
is found, set both bytes of the GAP entry to FF. If all 
GAP's in an entry are released (set to FF's) f release the 
directory entry and the HIT index in the HIT sector for 
the directory entry. 



EB 
23 

35 

7E 

3C 

E61F 

Dl 

2038 

36FF 

2B 

36FF 

2B 

7D 

E61F 

FE15 

202B 



EX 
INC 

DEC 

LD 

INC 

AND 

POP 

JR 

LD 

DEC 

LD 

DEC 

LD 

AND 

CP 

JR 



DE r HL 
HL 

(HL) 
A, (HL) 
A 

1FH 
DE 

NZ f 4F6CH 

(HL) ,0FFH 

HL 

(HL) ,0FFH 

HL 

A,L 

1FH 

15H 

NZ,4F6CH 



Restore directory GAP addr to HL 

Skip forward to number of 

granules assigned this GAP 

Prepare to test for no grans assigned 

Fetch # granules assigned - 2 

Add 1. yields zero if none assigned 

Isolate true gran count for GAP 

Restore difference in granule 

count between DCB & dir. 

Jump if at least one gran assigned 

No granules assigned to this GAP 

Initialize GAP to FF 

Including track number 

Backspace to gran count for last GAP 

Then isolate GAP index 

And test for start of GAP 

entries in directory. If not 

start of GAP area - Go 

Listing Continued . . . 



120 Chapter 6 



Close Processing 



. . . Continued Listing 






4F41 


AD 


XOR 


L 


4F42 


6F 


LD 


L,A 


4F43 


7E 


LD 


A, (HL) 


4F44 


3600 


LD 


(HL) ,00H 


4F46 


23 


INC 


HL 


4F47 


56 


LD 


D, (HL) 


4F48 


2651 


LD 


H,51H 


4F4A 


68 


LD 


L,B 


4F4B 


3600 


LD 


(HL) f 00H 


4F4D 


CB7F 


BIT 


07H,A 


4F4F 


281E 


JR 


Z,4F6FH 


4F51 


D5 


PUSH 


DE 


4F52 


CDD64A 


CALL 


4AD6H 


4F55 


Dl 


POP 


DE 


4F56 


C0 


RET 


NZ 


4F57 


78 


LD 


A,B 


4F58 


AA 


XOR 


D 


4F59 


E6 07 


AND 


07H 


4F5B 


42 


LD 


B,D 


4F5C 


C4C14A 


CALL 


NZ,4AC1H 


4F5F 


C0 


RET 


NZ 


4F60 


78 


LD 


A,B 


4F61 


E6E0 


AND 


0E0H 


4F63 


C61F 


ADD 


A,1FH 


4F65 


6F 


LD 


L,A 


4F66 


36FF 


LD 


(HL) ,0FFH 


4F68 


2B 


DEC 


HL 


4F69 


36FF 


LD 


(HL) f 0FFH 


4F6B 


2B 


DEC 


HL 


4F6C 


ID 


DEC 


E 


4F6D 
* 


1892 


JR 


4F01H 


* 
* 


Write updated d 


irectory ent 


4F6F 


CDD64A 


CALL 


4AD6H 


4F72 


C0 


RET 


NZ 


4F73 


CD7750 


CALL 


5077H 


4F76 


C0 


RET 


NZ 


4F77 


CD034B 


CALL 


4B03H 


4F7A 


C0 


RET 


NZ 



Form LSB of dir entry addr in A 

Then reform start of directory 

entry address in HL 

Fetch access and dir type flags 

Flag directory entry as available 

Bump pointer to overflow byte 

pointer in directory 

Fetch possible overflow pointer 

Origin of HIT buffer to H 

HIT index for file to HL. 

HL = addr. of HIT index 

Clear HIT entry for dir entry 

Test type of dir entry being cleared 

Jump if primary directory entry 

Save remainder of gran count diff 

Write released directory entry 

Restore granule count difference 

Exit if error during sector rewrite 

Fetch HIT index and compare 

Sector no. portion of it with 

the sector no. from overflow pointer 

Save sector number for next 

overflow pointer 

Read overflow directory entry 

(if there is one) 

Exit if error during read 

A = entry addr/sector no. -2 

Isolate directory entry address 

Skip to end of GAP's in overflow 

directory entry 

Form ending dir addr in HL 

Signal end of GAP's 

and backspace to starting track no. 

Initialize it on end of GAP's 

Backspace to gran count for next GAP 
Reduce difference in gran count 
and go test if done 

Reconstruct DCB 

Write updated directory entry 
Exit if error during write 
Maybe write updated HIT sector 
Exit if error during HIT rewrite 
Write GAT sector 
Exit if error during write 
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The code for the fourth step is almost as straightforward as that for the first step. 
It reconstructs the filename, extensions and drive number and stores them in the 
DCB. The only wrinkle in this code is at the beginning, where the HIT index from 
the DCB is compared to the current HIT index in the B register. This test is 
necessary to insure the primary directory entry occupies the system buffer at 
4200. Depending on the actions taken during step three, another directory could 
have been read into the system buffer. 

The remainder of the code for step four copies the filename and extension to the 
DCB. The drive number is also converted to ASCII and stored in the DCB. 
Following these operations, control returns to the caller of SYS3. 

The following code is used for the fourth step: 



Fi 


gure 6.10 


SYS.'S Code From 


4 FIB to 4FCF 


4F7B 


DD7E07 


LD 


A, (IX+07H) 


4F7E 


A8 


XOR 


B 


4F7F 


E61F 


AND 


1FH 


4F81 


C4C14A 


CALL 


NZ,4AC1H 


4F84 


C0 


RET 


NZ 


4F85 


DD7E06 


LD 


A, (IX+06H) 


4F88 


E603 


AND 


03H 


4F8A 


F630 


OR 


30H 


4F8C 


32C84F 


LD 


(4FC8H) , A 


4F8F 


2642 


LD 


H,42H 


4F91 


DD7E07 


LD 


A, (IX+07H) 


4F94 


E6E0 


AND 


0E0H 


4F96 


F605 


OR 


05H 


4F98 


6F 


LD 


L f A 


4F99 


E5 


PUSH 


HL 


4F9A 


DDE5 


PUSH 


IX 


4F9C 


Dl 


POP 


DE 


4F9D 


0608 


LD 


B, 08H 


4F9F 


7E 


LD 


A, (HL) 


4FA0 


FE20 


CP 


20H 


4FA2 


2805 


JR 


Z,4FA9H 


4FA4 


12 


LD 


(DE),A 


4FA5 


23 


INC 


HL 


4FA6 


13 


INC 


DE 


4FA7 


10F6 


DJNZ 


4F9FH 


4FA9 


El 


POP 


HL 


4FAA 


7D 


LD 


A,L 


4 FAB 


C608 


ADD 


A,08H 


4 FAD 


6F 


LD 


L,A 


4FAE 


7E 


LD 


A, (HL) 


4FAF 


FE20 


CP 


20H 


4FB1 


2810 


JR 


Z r 4FC3H 


4FB3 


3E2F 


LD 


A,2FH 



Load HIT index 

Compare with last HIT index 

Isolate any possible difference 

They were different, read 

directory entry 

Exit if error during read 

Load drive number 

Force a value between and 3 

Reconstruct as ASCII value 

to be restored into DCB 

Form address of file name in dir 

Get the HIT index 

Isolate offset to file entry 

Add a 5 and move to L 

Gives addr. of file name 

in directory entry 

Save addr. of file name in dir 

Start of DCB address to DE 

Prepare to rebuild DCB for OPEN call 

Max. no. of chars in file name 

Get a char, from file name 

Is it a blank 

Jump if yes. File name copied 

Move char from directory to DC-3 

Bump directory addr. 

Bump DCB addr. 

Loop till name copied to DCB 

Restore addr of name in directory 

Then add 8 to it to 

Get addr of extension in directory 

HL = Addr. of file ext. 

Fetch a character of extension 

Is it a blank 

Jump if yes, no extension 

Else, save a "/" 

Listing Continued . . . 
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4FB5 


12 


LD 


(DE) r A 


4FB6 


13 


INC 


DE 


4FB7 


0603 


LD 


B, 03H 


4FB9 


7E 


LD 


A r (HL) 


4FBA 


FE20 


CP 


20H 


4FBC 


2805 


JR 


Z,4FC3H 


4FBE 


12 


LD 


(DE),A 


4FBF 


23 


INC 


HL 


4FC0 


13 


INC 


DE 


4FC1 


10F6 


DJNZ 


4FB9H 


4FC3 


3E3A 


LD 


A,3AH 


4FC5 


12 


LD 


(DE),A 


4FC6 


13 


INC 


DE 


4FC7 


3E00 


LD 


A,00H 


4FC9 


12 


LD 


(DE),A 


4FCA 


13 


INC 


DE 


4FCB 


3E03 


LD 


A r 03H 


4FCD 


12 


LD 


(DE),A 


4FCE 


AF 


XOR 


A 


4FCF 


C9 


RET 





After file name in DCB 

Bump to pos. of 1st ext. char in DCB 

Max. no. of chars in extension 

Fetch a character of extension 

Is it a blank 

Go if so. End of ext. found 

Else save extension character 

Bump directory address 

Bump DCB address 

Loop till ext. copied to DCB 

Next, save an ASCII : 

in DCB, then 

Bump to next addr. 

Load ASCII drive number 

And save it in DCB 

Bump to first char after drive no. 

And store a 

terminator 

Signal good status 

Return to caller 



6.2 Kill Processing 

Code for KILL processing begins at 4FD0 and ends at 5038. The processing is 
remarkably simple. The primary directory entry is read into the system buffer at 
4200, the GAT is read into the system buffer at 4D00 and the HIT sector is read 
into the local buffer at 5 100. Next, the GAP's in the direcctory are processed one 
by one; the bit in the GAT associated with each granule being processed is reset 
(flagged as available). When all GAP's have been processed, the directory entry is 
zeroed, and the HIT index in the HIT sector is cleared. Finally, all three sectors 
(the directory, GAT, and HIT), are rewritten to disk. 

These operations can be broken into the following steps: 

1. Test for KILL permission; exit with error if not true. Read the GAT, 
HIT, and directory sectors. 

2. Process all GAP's in the directory one at a time. For each GAP, call 
a de-allocate subroutine which releases all granules owned by the GAP. 
If overflow GAP pointers are encountered, read the overflow entries 
and process the GAP's. 

3. Zero the directory entry and HIT index, and write the updated 
sectors to disk. 

Step one begins at 4FD0 and ends at 4FF2. The code is quite straightforward. 
After verifying the permission flags (4FD4 - 4FBD), the required disk sectors are 
read via calls to the nucleus. 



Following is the code used for step one. 
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Figure 6.11 


SYS3 Code From 


: 4FD0 to 4FF2 


* 
* 
* 







KILL Proce 


4FD0 


CD9248 


CALL 


4892H 


4FD3 


C0 


RET 


NZ 


4FD4 


DD7E01 


LD 


A, (IX+01H) 


4FD7 


E607 


AND 


07 H 


4FD9 


FE02 


CP 


02H 


4FDB 


3804 


JR 


C f 4FElH 


4 FDD 


3E25 


LD 


A,25H 


4FDF 


B7 


OR 


A 


4FE0 


C9 


RET 




4FE1 


DD4E06 


LD 


C, (IX+06H) 


4FE4 


DD46 07 


LD 


B r (IX+07H) 


4FE7 


CD6850 


CALL 


5068H 


4FEA 


C0 


RET 


NZ 


4 FEB 


CDF04A 


CALL 


4AF0H 


4FEE 


C0 


RET 


NZ 


4FEF 


CDC14A 


CALL 


4AC1H 


4FF2 


C0 


RET 


NZ 



Save caller's registers 
Error exit if file not open. 
Get permission flags 
Isolate them 
Test if KILL permission 
Jump if KILL permission. Else 
rret illegal file access code 
Set error status flags 
And return to caller 
C = Unit no. 
B = HIT index number 
Read HIT sector into 5100 
Exit if error during read 
Read GAT into 4D00 
Exit if error 

Read directory entry into 4200 
HL = addr. of entry 
Exit if error during read 



The second step is composed of three parts. The first part is a loop, which begins 
at 4FF3 and ends at 5003. The loop processes all GAP's in a directory entry by 
calling a subroutine at 5039 to release all granules assigned to a particular GAP. 
Folowing is the code for part one of step two: 



Figure 6.12 


SYS3 Code From 


4FF3 to 5003 


4FF3 3E16 


LD 


A,16H 


4FF5 85 


ADD 


A,L 


4FF6 6F 


LD 


L,A 


4FF7 5E 


LD 


E,(HL) 


4FF8 2C 


INC 


L 


4FF9 56 


LD 


D, (HL) 


4FFA 7B 


LD 


A,E 


4FFB FEFE 


CP 


0FEH 


4FFD 3006 


JR 


NC f 5005H 


4FFF 2C 


INC 


L 


5000 CD3950 


CALL 


5039H 


5003 18F2 


JR 


4FF7H 



Offset to start 
Combine with dir 
Form GAP addr fo 
Fetch track addr 
Bump pointer to 
Fetch no. of ass 
Prepare to test 
End of GAP'S or 
Jump if yes 
Else bump to nex 
Deallocate GAP 
Loop till end of 
or overflow poin 



of GAP'S 

entry address 
r dir entry in HL 
ess from GAP 
granule count 
igned grans 
for end of GAP's 
overflow pointer? 

t GAP entry 

GAP's reached, 
ter found 
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The second part of step two consists of the subroutines called to de-allocate a 
GAP. The main subroutine which is called with a GAP entry as a parameter 
occuppies 5039 - 505 A. It calls a subroutine at 505B@T - 5067 on a granule 
basis to flag the granule as available in the GAT. 

The method used by both subroutines is instructive. In the 5039 subroutine, a 
loop from 5047 - 5056 processes each GAP. Imbedded in this loop is a call to the 
other subroutine starting at 505B. 

The subroutine at 505B must be called with the bit number for the GAT entry 
to be reset (set to zero), in the A register. Since the bit numbers associated with 
granules can only be zero or one, a counter for the bit being cleared must be 
maintained. The code from 503F to 5046 initializes this counter to the proper 
starting bit position. 

The subroutine at 505B uses the bit number passed in the A register to 
construct a RES X,B instruction, where X is the bit position (0 or 1 for GAT 
entries). 

Following is the code used for the de-allocation portion of step two: 



Figure 6.13 SYS3 Code From 5039 to 5067 



* 
* 
* 



GAP Deallocation 



5039 E5 PUSH 
GAP deallocation 



HL 



503A 


C5 


PUSH 


BC 


503B 


6B 


LD 


L,E 


into 


GAT 






503C 


264D 


LD 


H,4DH 


503E 


7A 


LD 


A,D 


assigned grans 






503F 


E61F 


AND 


1FH 


5041 


4F 


LD 


C,A 


5042 


0C 


INC 


C 


5043 


AA 


XOR 


D 


5044 


07 


RLCA 




5045 


07 


RLCA 




5046 


07 


RLCA 




5047 


F5 


PUSH 


AF 


5048 


46 


LD 


B, (HL) 


5049 


CD5B50 


CALL 


505BH 


504C 


70 


LD 


(HL),B 


504D 


Fl 


POP 


AF 


504E 


3C 


INC 


A 



Save current dir address 

Save HIT index/unit number 
Track number to L. Becomes index 

Form addr of starting track no. in HL 

number in HL 

Get number of consecutively 

Isolate granule count -1 

Save in C 

And compute true granule count 

Isolate starting gran no. flag 

(0 = sect. 0, 1 = sect. 5) 

and reposition 

into 

lower bit of A-reg. 

Save it as the initial bit 

counter for each GAT entry 

Fetch current GAT entry for 

current track number 

Release a granule (make it 

available) for current GAT entry 

Restore updated GAT entry 

Get bit counter for current GAT entry 

Bump it and 

Listing Continued . . . 
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504F FE02 

5051 2002 

5053 AF 

5054 2C 

5055 0D 

5056 20EF 

5058 CI 

5059 El 
505A C9 



CP 


02H 


test if I 
for this 


JR 


NZ,5055H 


Jump if ; 
released 


XOR 


A 


Else r re 


INC 


L 


Bump to i 


DEC 


C 


Count 1 < 


JR 


NZ,5047H 


Jump if : 


POP 


BC 


Restore 


POP 


HL 


Restore < 


RET 




Return t 



Max. # granules released 

entry 
more granules to be 

for this GAT entry 
set bit counter to zero 
GAT entry for next track 
granule released 
more grans to be released 
HIT index, unit number 
current dir GAP address 
o caller 



Clear bit number in B specified by A 



* 

505B E607 AND 

505D 07 RLCA 

505E 07 RLCA 

505F 07 RLCA 

5060 F680 OR 

5062 326650 LD 

5065 CB80 RES 

5067 C9 RET 



07 H 



80H 

(5066H) ,A 
00H,B 



Isolate bit number to be reset. 

Will be or 1 

and 

position for 

placement into RES instr. 

Combine RES Op code with bit to clear 

Save synthesized RES instr. 

Now clear bit for this granule 

Return to caller 



The third part of step two is executed on an exception basis. It is called when the 
GAP's in the directory entry have been exhausted and an overflow pointer 
encountered. This code must zero the current directory entry, clear the HIT index, 
rewrite both sectors and read the directory entry indicated by the overflow 
pointer. The section of code that zeros the buffers and rewrites them is common to 
step three. Following is the code for the third part of step two: 



Figure 6.14 SYS3 Code From 5005 to 5024 



5005 


7D 


LD 


A,L 


5006 
5008 
5009 


E6E0 

6F 

3600 


AND 

LD 

LD 


0E0H 

L,A 

(HL) f 00H 


500B 
500C 
500D 
500E 
500F 


C5 
D5 
E5 
Dl 
13 


PUSH 

PUSH 

PUSH 

POP 

INC 


BC 
DE 
HL 
DE 
DE 


5010 
5013 


011F00 
EDB0 


LD 
LDIR 


BC r 001FH 


5015 
5016 


Dl 
CI 


POP 
POP 


DE 
BC 
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Get LSB of directory entry addr. 

in sector buffer 

Isolate starting address of entry 

And form beginning address in HL 

Clear access flags, flag entry 

as available 

Save HIT index/unit number 

Save GAP flags (FF or FE) 

Start of directory entry address 

To DE 

Bump to 2nd byte of directory 

entry address 

Number of bytes to move 

Zero directory entry in sector 

buffer 

Restore GAP terminator flag 

Restore HIT index/unit number 

Listing Continued . 
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. . . Co, 


ntinued Listing 






5017 


CDD64A 


CALL 


4AD6H 


501A 


C0 


RET 


HZ 


501B 


2651 


LD 


H,51H 


501D 


68 


LD 


L,B 


501E 


3600 


LD 


(HL) ,00H 


5020 


42 


LD 


B,D 


5021 


7B 


LD 


A,E 


5022 


FEFE 


CP 


0FEH 


5024 


28C9 


JR 


Z f 4FEFH 



Write drectory sector with 

zeroed entry 

Exit if error during write 

Load MSB of HIT buffer address, 

then load HIT index 

To form address of byte 

containing hash code for file 

Remove hash code from HIT sector 

buffer 

B = sector # of possible 

overflow entry 

Fetch GAP terminating flag 

Test for overfow entry 

Jump if overflow entry. Go read 

and process 



The third step is very brief. It unconditionally writes the updated GAT and HIT 
sector. It is assumed that when this code is reached, the updated directory has been 
rewritten. After writing the updated sectors, the caller's DCB is zeroed. Following 
is the code for step three: 



Figure 6.15 SYS3 Code From 5026 to 5038 



5026 


CD034B 


CALL 


4B03H 


5029 


C0 


RET 


NZ 


502A 


CD7750 


CALL 


5077H 


502D 


C0 


RET 


NZ 


502E 


DDE5 


PUSH 


IX 


5030 


El 


POP 


HL 


5031 


0620 


LD 


B,20H 


5033 


AF 


XOR 


A 


5034 


77 


LD 


(HL) ,A 


5035 


23 


INC 


HL 


5036 


10FC 


DJNZ 


5034H 


5038 


C9 


RET 





Else, write updated GAT sector 

from buffer at 4D00 

Exit if error during write 

Write updated HIT sector from 

buffer at 5200 

Exit if error during write 

Copy DCB address 

to HL 

Number of bytes to clear in DCB 

Load a zero into A-reg. 

Clear a byte in DCB 

Bump to next address in DCB 

Loop till DCB cleared 

Return to KILL caller 
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7.0 SYS4/SYS 

SYS4/SYS is the error processing portion of TRSDOS. It is called from the 
nucleus when error conditions have been detected by the nucleus, any system 
overlay module or any utility program. 

SYS4 begins at 4E00 and ends at 51F2; the entry point is 4E00. A single 
parameter containing an error code number and two flags is passed to SYS4 in the 
A register. This parameter has the following format: 



Figure 7. 1 S YSt Error Code Format 



I I II I 



-► Error number 



_► - Display *** ERRCOD = XX Message 
1 - Skip *** ERRCOD - XX Message 



- Return control to 4030 in the 

nucleus after processing error 

1 - Return control to caller 

after processing error. 
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At first blush SYS4 appears to be more complicated than it really is. This is 
because it is mostly table-driven, whereas the other SYS modules work with a 
command line buffer, DCB, or well-known system data structures. 

There are three tables in SYS4 that are used for processing every error code. 
These tables are used to translate the error code into an error message such as: 

PARITY ERROR DURING READ 

The typical way for programming an error message processor is to predefine 
every error message and construct a table containing the address of every message. 
The error code is then used as an index into the table of addresses to locate an error 
message corresponding to a particular error code. The data structures for this 
approach might appear as shown below: 



Figure 7.2 Sample Error Message Data Structure? 



Address List 



Message Text 



This list would 
be indexed by 
error code. For 
example, error 
code 01 would give 
the address of 
message 1, etc. 



Addr, 
Addr, 



of Msg. 1 
of Msg. 2 



-*- 'Description of Error 1' 
-*- 'Description of Error 2' 



The major drawback to this method is the error message routine may become 
quite large because of the amount of space required for the ASCII text of the 
messages. If the message processor is a utility program, the messages can be read 
from a message file or disk, or overlays containing segments of error message can 
be loaded if the size of the processor becomes critical. 

In TRSDOS, the message processor is an overlay, so the size of the message 
processor is a problem almost immediately (because of the large number of error 
messages). The messages could have been stored on a disk file and read as needed, 
but if the error concerns a disk problem, the message processor may not be able to 
read the error messages from the disk. Or, the system diskette containing the error 
file may not be mounted. Overlays for overlays are not practical for TRSDOS in 
this case because the overlay area is so small. 
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The approach taken with TRSDOS was to reduce the amount of space required 
for the error messages. This was accomplished by constructing a list containing 
every word used in any error message. Error messages were then built using indices 
into the list instead of words. This reduces the size of the error message because no 
words are repeated. Word list indices representing a word will be repeated, but 
they occupy only one byte. Thus, the messages become quite short. 

The only limitation with this method, as implemented in TRSDOS, is the size of 
the word list, since the indices into the list are bytes, and only six bits of each byte 
are used as an index. The maximum number of words in a message is limited to 
sixty four. 

The following types of data structures were used to implement the word index 
method in TRSDOS. As an illustrative example, a limited word list is shown. The 
actual word list in SYS4 is much larger. 

Figure 7.3 Error Message Data Strueture 



Error 
Index 



Message 
Address 



Message 
List 



Word 


Index 






Word List 


List 












(01) 


Addr 


of 


Word 


1 


(1) 


DURING 


(02) 


Addr 


of 


Word 


2 


(2) 


PARITY 


(03) 


Addr 


of 


Word 


3 


(3) 


ATTEMPTED 


(04) 


Addr 


of 


Word 


4 


(4) 


ERROR 


(05) 


Addr 


of 


Word 


5 


(5) 


READ 


(06) 


Addr 


of 


Word 


6 


(6) 


WRITE 


(07) 


Addr 


of 


Word 


7 


(7) 


DELETED 


(08) 


Addr 


of 


Word 


8 


(8) 


SEEK 


(09) 


Addr 


of 


Word 


9 


(9) 


LOCKED 



01 



xxxx 

(Addr of 



02 



XXXX 
(Addr of 



msg 1) 



msg 1) 



02 
04 
01 

05 -^ 
End 



? 



F 



08 
04 
End 



Ft 



TO 



A description of the actual data structures used in SYS4 follows: 



Figure 7.4 SYS4 Data Structures 



Addr. 



Error Index 

List 
(Contents) 



Addr. 



4F84 
4F85 
4F86 
4F87 



5B 
5D 
62 
66 



515B 
515C 
515D 
515E 
515F 
5160 
5161 

*■ 5162 
5163 
5164 
5165 

*- 5166 



Message 

List 
(Contents) 



Addr. 



01 
82 
04 
02 
05 
06 
89 
08 
02 
05 
89 



<> 

q: 

— — » 
— — *» 



4FC4 
4FC6 
4FC8 
4FCA 
4 FCC 
4FCE 
4FD0 
4FD2 



Word Index 

List 
(Contents) 



Addr. 



5030 
5032 
5037 
503D 
5043 
5049 
504F 
5053 



5030 
5032 
5037 
503D 
5043 
5049 
504F 
5053 



Word List 
(Contents) 



NO 

ERROR 

FORMAT 

PARITY 

DURING 

HEADER 

DATA 

SEEK 
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Notice the further economies in the ERROR INDEX LIST and the MESSAGE 
LIST. The ERROR INDEX LIST has a one-byte pointer to the MESSAGE LIST, 
rather than a full 16-bit address. This requires the most significant byte of the 
address of every MESSAGE LIST address to be a known value. In this case, that 
value is 51. Thus, the contents of any byte in the ERROR INDEX LIST is the least 
significant byte of an address of the form 51XX, where the XX represents the 
contents of a particular byte of the ERROR LIST. 

A second economy is achieved with the terminator byte in the MESSAGE LIST. 
The exact format of a terminator is given below: 



Figure 7.5 SYS4 Message Index Format 



INDEX/2 

- FILE NAME NOT IN DCB 

1 -FILE NAME IN DCB 

- MORE INDEXES TO FOLLOW 

1 - LAST INDEX 



Instead of having a separate terminator byte, a terminator flag is combined with 
the last index in the MESSAGE LIST. 



7.1 SYS4 Processing 



The entry conditions for SYS4 are different from those for any other system 
overlay module. The parameter byte containing the error number is passed as the 
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second push on the stack rather than in the A register as with the other modules. 
This difference is due to the fact that the parameter byte for SYS4 requires 8 bits, 
whereas the parameter field for all other system overlays is 4 bits. 

The processing within SYS4 is straightforward. Three types of error messages 
may be generated depending upon the parameter passed and the error message 
associated with the error. 

The simplest case occurs when Bit 6 of the parameter byte is non-zero. For that 
case, the message associated with the error number (Bit - 5 of the parameter) is 
displayed. After displaying the message control returns to the caller, or 4030 in 
the nucleus, depending on Bit 7 of the parameter byte. 

A second case occurs when Bit 6 of the parameter byte is zero. This case assumes 
the error was associated with a file. The file name and the sector buffer address 
associated with the file in error will be displayed following the main error message. 
For this case, the message 

***ERRCOD=XX*** 

is displayed before the error message is dislayed. XX will be the ASCII equivalent of 
the error code passed in the parameter byte. 

Following the error message, the file name and sector buffer address are displayed 
as: 

<FILE = NNNNNNNN//EXT:D> 
REFERENCED AT X'XXXX' 

Prior to displaying these messages, the possibility of displaying the following 
message arises: 

<DEVICE=*XX> 

This message will appear automatically and supercede the <F1LE= > display if 
both of the following conditions are true: 



1. Bit 6 of the terminator index is non-zero. This is true for a limited 
number of messages. 

2. The first byte of the file DCB contains an '*.' 



If both conditions are true, the device code will be the value contained in the 
second and third bytes of the DCB. 
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A second set of conditions may cause the message to be displayed. Those 
conditions are: 



1. Bit 6 of the terminator index must be zero. 

2. The OPEN bit in the DCB must be zero. File not OPEN. 

If both of these conditions are true, the device code will come from the seventh 
and eighth bytes of the DCB. 

The exact circumstances which lead to either of these sets of conditions are 
unknown at this time. There is a possibility that some other use was intended for 
these conditions but never implemented. 

When SYS4 is entered, the stack contains the return address of the SYS4 caller 
followed by the parameter byte. SYS4 begins by POP'ing the return address from 
the stack and saving it at 4E6E. There are two reasons for this. First, following 
completion, SYS4 will return to the original caller or 4030 in the nucleus 
(depending on the option specified in the parameter byte). Second, the stack must 
be cleared to gain access to the parameter byte which precedes the return address 
on the stack. 

Following those operations, the HL, DE and BC registers are saved, and bit 6 of 
the parameter byte is tested. If it is zero, the message: 



*** 



ERRCODD=XX*** 

is displayed. If the bit is non-zero, this message is skipped. The following code is used 
for the operations described up to this point: 



F 


igure 7.6 


SYS4 Code Fi 


■om-tEOO to IE2 7 


4E00 


E3 


EX 


(SP) ,HL 


4E01 


226 E4E 


LD 


(4E6EH) ,HL 


4E04 


El 


POP 


HL 


4E05 


Fl 


POP 


AF 


4E06 


E5 


PUSH 


HL 


4E07 


D5 


PUSH 


DE 


4E08 


C5 


PUSH 


BC 


4E09 


F5 


PUSH 


AF 


4E0A 


47 


LD 


B, A 


4E0B 


E63F 


AND 


3FH 


4E0D 


4F 


LD 


C f A 


4E0E 


CB70 


BIT 


06H,B 


4E10 


0600 


LD 


B,00H 


4E12 
* 


2016 


JR 


NZ,4E2AH 


* 
* 






Hex to ASCII i 


4E14 


1E30 


LD 


E,30H 


4E16 


D60A 


SUB 


0AH 



Return addr to HL. HL to stack 

Return addr to exit instruction. 

Restore HL (clear stack) 

Restore error code 

Preserve HL 

DE 

BC 

And error code 

Save original error code 

Clear upper two bits 

C = cleared error code 

Is ***ERRCOD=XX message flag set 

BC = error code (used as index 

Jump if ***ERRCOD msg flag off 



E = ASCII zero 

Subtract 10 from hex value 

Listing Continued . 
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. . . Continued Listing 

4E18 3803 JR 

4E1A 1C INC 

4E1B 18F9 JR 

4E1D C63A ADD 

4E1F 57 LD 

4E20 ED53424F LD 

4E24 21364F LD 

4E27 CD6744 CALL 



C,4E1DH 

E 

4E16H 

A, 3 AH 

D,A 

(4F42H) ,DE 

HL,4F36H 

4467H 



Jump if done with conversion 

Bump ASCII value 

Loop till ASCII equivalent computed 

Make MSB of hex ASCII value positive 

for ASCII error code in DE 

Then save in ***ERRCOD=XX message 

Address of ***ERRCOD message 

Display msg. 



Next, the error message associated with the error code is assembled and 
dislayed. The processing for this operation begins at 4E2A and ends at 4E5A. 

At first, the code may appear confusisng. A full understanding of the lists from 
4F84 - 4FC3, 515B - 51F2 and 4FC2 - 502F will aid in comprehending this 
code: 



Figure 7.7 SYl 


S4 Code From 


4E2A to4E5A 


4E2A 


21844F 


LD 


HL,4F84H 


4E2D 


09 


ADD 


HL,BC 


4E2E 


6E 


LD 


L, (HL) 


4E2F 


2651 


LD 


H,51H 


4E31 


7E 


LD 


A, (HL) 


4E32 


E63F 


AND 


3FH 


4E34 


87 


ADD 


A, A 


4E35 


E5 


PUSH 


HL 


4E36 


4F 


LD 


C f A 


4E37 


0600 


LD 


B,00H 


4E39 


21C24F 


LD 


HL,4FC2H 


4E3C 


09 


ADD 


HL,BC 


4E3D 


5E 


LD 


E, (HL) 


4E3E 


23 


INC 


HL 


4E3F 


56 


LD 


D f (HL) 


4E40 


23 


INC 


HL 


4E41 


7E 


LD 


A, (HL) 


4E42 


23 


INC 


HL 


4E43 


66 


LD 


H, (HL) 


4E44 


6F 


LD 


L f A 


4E45 


B7 


OR 


A 


4E46 


ED52 


SBC 


HL f DE 


4E48 


45 


LD 


B,L 


4E49 


EB 


EX 


DE,HL 


4E4A 


7E 


LD 


A, (HL) 


4E4B 


23 


INC 


HL 


4E4C 


CD3300 


CALL 


0033H 



Addr of error code index list 

Add error code to get address of 

phrase indices for error 

L = LSB of phrase index address 

for error code 

H = MSB of phrase index address 

Load a word index 

Clear terminator/unused lists 

Index * 2 (list is addr by word 

Save current word index address 

C = index * 2 

BC = index * 2 

Origin -2 of word address list 

Add index * 2 for required phrase 

E = LSB of addr for required phrase 

Bump to address of MSB 

D = MSB of addr for required phrase 

Bump to LSB of addr for next phrase 

Fetch it 

Bump to MSB of addr for next phrase 

Fetch it 

HL = text addr for following phrase 

Clear carry 

Addr of next phrase (one we want) 

Gives # of chars in phrase we need 
HL = text addr for required phrase 
Fetch a character from phrase 
Bump to next char in phrase 
Display phrase character 

Listing Continued . . . 
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. . . Continued Listing 






4E4F 10P9 


DJNZ 


4E4AH 


4E51 3E20 


LD 


A,20H 


4E53 CD3300 


CALL 


0033H 


4E56 El 


POP 


HL 


4E57 7E 


LD 


A, (HL) 


4E58 23 


INC 


HL 


4E59 07 


RLCA 




4E5A 30D5 


JR 


NC,4E31H 



Loop till all of phrase displayed 

Follow phrase 

with a space 

Restore phrase index address 

Refetch index 

Bump to the next index in case 

this is not the end 

Terminating bit to CARRY flag 

Jump if not end of phrase 

list. Process next phrase 



Summarized, the code from 4E2A - 4E2F forms the address of the error 
message list in the HL register using the error code from the parameter byte as an 
index into the list beginning at 4F84. The code from 4E31 - 4E3C forms the 
address of the word address list in the HL registers, and the code from 4E3D - 
4E46 computes the beginning address of the error message and its length. The 
loop from 4E4A - 4E4F displays a single word of the error message. The code 
from 4E57 - 4E5A tests the current word index to determine if the last word of 
the message has been dislayed. If not, control goes to 4E31, where the address of 
the next word is computed before it is displayed. 

When the end of the message is reached (a word index with bit 8 on is detected), 
control goes to 4E5C. 

After the error message has been displayed, bit 6 of the parameter byte is tested 
and SYS4 exits, or the next message is displayed. The following code is used: 



Figure 7.8 


SYS-1 Code From 


■IE5C to 4E\ 


4E5C 


Fl 


POP 


AF 


4E5D 


F5 


PUSH 


AF 


4E5E 


CB77 


BIT 


06H f A 


4E60 


CC734E 


CALL 


Z,4E73H 


4E63 


3E0D 


LD 


A,0DH 


4E65 


CD3300 


CALL 


0033H 


4E68 


Fl 


POP 


AF 


4E69 


CI 


POP 


BC 


4E6A 


Dl 


POP 


DE 


4E6B 


El 


POP 


HL 


4E6C 


B7 


OR 


A 


4E6D 


FA0000 


JP 


M f 0000H 


4E70 


C33040 


JP 


4030H 



Restore error code 

Save error code 

Test if file error code 

Display file name if file error 

Else scroll one line 

by displaying a carriage return 

Restore error code in A, 

then restore BC 

DE 

and HL 

Set status flag for return 

Test for System or caller return 

Return to caller if requested 

Else return to system 
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Control passes to 4E73 if Bit 6 of the parameter byte is zero. In this case, an 
error with a file is assumed, and the message '<FILE=, and REFERENCED' will 
probably be displayed. The exception condition that may cause the message 
'DEVICE = 'to appear will be detected in the next section. 

The code from 4E73 through 4F33 (the end code in SYS4) can be divided into 
two sections. The first section deals with the exception cases described earlier, 
while the second section produces the file messages. Some of the code is shared 
between the sections. 

Beginning at 4E73 and continuing through 4EAD is the controlling code which 
determines if the exception conditions are present, and if so, generates (but does 
not display) the ' <DEV message. The code from 4E73 - 4E84 is common to both 
sectons: 



Figure 7.9 SYS4 Code From 4 ETA to 4EAD 



4E73 


E5 


PUSH 


HL 


4E74 


21474F 


LD 


HL,4F47H 


4E77 


CD6744 


CALL 


4467H 


4E7A 


El 


POP 


HL 


4E7B 


DDE5 


PUSH 


IX 


4E7D 


DD2A0A43 


LD 


IX, (430AH) 


4E81 


2B 


DEC 


HL 


4E82 


CB76 


BIT 


06H, (HL) 


4E84 


201A 


JR 


NZ,4EA0H 


4E86 


DD4E06 


LD 


C, (IX+06H) 


4E89 


DD4607 


LD 


B f (IX+07H) 


4E8C 


DDCB007E 


BIT 


07H, (IX+00H) 


4E90 


2032 


JR 


NZ,4EC4H 


4E92 


DDE1 


POP 


IX 


4E94 


ED43554F 


LD 


(4F55H) ,BC 


4E98 


214B4F 


LD 


HL,4F4BH 


4E9B 


CD6744 


CALL 


4467H 


4E9E 


1866 


JR 


4F06H 


4EA0 


DD7E00 


LD 


A, (IX+00H) 


4EA3 


FE2A 


CP 


2AH 


4EA5 


2008 


JR 


NZ,4EAFH 


4EA7 


DD4E01 


LD 


C, (IX+01H) 


4EAA 


DD4602 


LD 


B, (IX+02H) 


4EAD 


18E3 


JR 


4E92H 



Save last phrase index address 

Address of *** 

Display closing *** 

Restore last phrase index addr 

Save current system DCB address 

Load DCB addr for file with error 

Position to terminating character 

in phrase index list 

Test if file name in DCB 

Jump if file name in DCB 

C = drive number 

B = directory sector number 

Test if file OPEN 

If so, go read dir - copy name/ext 

Else, clear stack 

Save device code in DEVICE = xx msg 

Address of DEVICE = xx msg 

Display message 

Go display REFERENCED AT message 

and return to caller 

Test for special DCB code 

First character must be * 

Jump if not. Name is in DCB 

Special DCB 

Bytes 2-3 contain device code 

Go print DEVICE=XX msg 
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Notice that the DCB address of the file in error is loaded from 430A. A service 
routine in the nucleus saves the DCB and sector buffer address at 430A and 
430C when processing user level I/O calls. System level calls, such as those used for 
overlay loading and accessing the GAT and HIT sectors, do not cause those 
locations to be updated. 

Code for the second section runs from 4EAF through 4F33. Portions of this 
code are used by the first section to display the '<DEV ' message. 

The code in this section determines the file name and sector buffer address and 
incorporates them into the remainder of the error message. Two possibilities exist for 
locating the file name. If the file is unopened, the name is assumed to be in the DCB; 
the code from 4EAF - 4EC2 deals with this case. 

If the file has been opened, the name must be fetched from the directory. The 
code from 4EC4 - 4EF8 performs that operation. 

Finally, the code from 4EF9 - 4F33 displays the remainder of the error 
messages and returns to 4E63 (remember, this stretch of code was entered by a 
CALL) where control is returned to the caller. 



Figure 7.10 


SYS-t Code From 


■IEAF to tF:i:i 


4EAF DDE5 


PUSH 


IX 


4EB1 El 


POP 


HL 


4EB2 11604F 


LD 


DE,4F60H 


4EB5 011800 


LD 


BC,0018H 


4EB8 7E 


LD 


A, (HL) 


4EB9 FE03 


CP 


03H 


4EBB 283C 


JR 


Z,4EF9H 


4EBD 23 


INC 


HL 


4EBE 12 


LD 


(DE),A 


4EBF 13 


INC 


DE 


4EC0 10F6 


DJNZ 


4EB8H 


4EC2 1835 


JR 


4EF9H 


4EC4 CDC14A 


CALL 


4AC1H 


4EC7 010500 


LD 


BC,0005H 


4ECA 09 


ADD 


HL,BC 


4ECB 11604F 


LD 


DE,4F60H 


4ECE 0608 


LD 


B,08H 


4ED0 7E 


LD 


A, (HL) 


4ED1 FE20 


CP 


20H 


4ED3 2805 


JR 


Z,4EDAH 


4ED5 2C 


INC 


L 


4ED6 12 


LD 


(DE),A 


4ED7 13 


INC 


DE 


4ED8 10F6 


DJNZ 


4ED0H 



Save DCB address belonging to 
file with error 

HL = DCB address with file name 

Address of file name in 

<file = NNN...> msg 

Max number of chars in name/ext:D 

Fetch a char from file name 

Test for end of list 

Jump if end of list 

Else bump to next char in list 

Move char to <file = NNN...> msg 

Bump to next pos in file message 

Loop till f ile/ext:drive copied 

into <file = ...> message 

Go display <file = ...> message 

Read dir entry for file with error 

Add offset to get address 

of file name in directory 

Addr of name in <file = ...> msg 

Max. no. chars to copy from dir 

Get file name char from directory 

Is it blank (end of name reached) 

Jump if end of name 

Bump to next char if not 

Save this char in <file = ...> msg 

Bump to next pos in <file = ...> msg 

Loop till 8 characters copied 

or end of name found 

Listing Continued . . . 
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. . . Continued Listing 

4EDA 3E2F LD A,2FH 

4EDC 12 LD (DE) , A 

4EDD 13 INC DE 

4EDE 48 LD C,B 

4EDF 0600 LD B,00H 

4EE1 09 ADD HL,BC 

4EE2 0603 LD B f 03H 
* 
* 



Then load an ASCII "/" 
Put after name in <file = ...> msg 
Pos to addr of ext in <,file> msg 
C = number of characters 
remaining in name field 
So BC can be added to HL 
compute beginning addr of ext 
Max no. chars in extension 



4EE4 
4EE5 
4EE6 
4EE8 
4EEA 
4EEB 
4EEC 
4EEE 
4EEF 
4EF1 
4EF2 
4EF5 
4EF7 
4EF8 
4EF9 
4EFB 
4EFC 
4EFE 
4F00 
4F03 
4F06 
4F09 
4F0C 



7E 

2C 

FE20 

2804 

12 

13 

10F6 

EB 

363A 

23 

DD7E06 

C630 

77 

23 

363E 

23 

360D 

DDE1 

21594F 

CD6744 

21704F 

CD6744 

2A0C43 



4F0F 2B 
4F10 2B 
4F11 2B 

4F12 CD1B4F 
4F15 21824F 

4F18 C36744 
4F1B 7C 
4F1C CD204F 

4F1F 7D 
4F20 F5 
4F21 IF 
4F22 IF 
4F23 IF 
4F24 IF 
4F25 CD294F 

4F28 Fl 



LD 

INC 

CP 

JR 

LD 

INC 

DJNZ 

EX 

LD 

INC 

LD 

ADD 

LD 

INC 

LD 

INC 

LD 

POP 

LD 

CALL 

LD 

CALL 

LD 

DEC 
DEC 
DEC 

CALL 
LD 

JP 
LD 
CALL 

LD 

PUSH 

RRA 

RRA 

RRA 

RRA 

CALL 

POP 



A, (HL) 
L 

20H 

Z,4EEEH 
(DE),A 
DE 

4EE4H 
DE,HL 
(HL) f 3AH 
HL 

A, (IX+06H) 
A,30H 
(HL),A 
HL 

(HL) ,3EH 
HL 

(HL) ,0DH 
IX 

HL f 4F59H 
4467H 
HL,4F70H 
4467H 
HL, (43 0CH) 

HL 
HL 
HL 

4F1BH 
HL,4F82H 

4467H 

A,H 

4F20H 

A f L 
AF 



4F29H 
AF 



Fetch a char from ext 
Bump to next char in ext 
If char blank, we're done 
Jump if end of ext found 
Move ext char to message 
Bump message store address 
Loop till extension copied 

HL = addr of drive # in <file = ...> 

terminate filename/ext 

with a : 

Then fetch drive from DCB 

and convert it to ASCII 

Save in <file = ...> message 

Bump to pos after drive # in msg 

Save closing > 

Bump past > in msg 

Terminate with carriage return 

Restore current DCB address 

Address of <file = XXX/XX:d> msg 

Display message 

Address of REFERENCED AT message 

Display message 

HL = sector buffer address 

associated with file 

Decrement buffer 

Address 

By three 

Convert addr to ASCII and display 

Address of * string (terminate 

buffer address display) 

Display ending • , ret to caller 

Convert MSB of buffer addr first 

Call routine to convert and 

display value in A reg 

Now convert/display LSB of buff addr 

Save value to be converted 

Right shift hex 

value four times 

This is the same 

as dividing it by 16 

Then convert binary hex value 

to ASCII and display 

Restore original value 



Listing Continued . . . 
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. . . Continued Listing 

4F29 E60F AND 0FH 

4F2B C630 ADD A,30H 

4F2D FE3A CP 3AH 

4F2F 3802 JR C,4F33H 

4F31 C607 ADD A,07H 

4F33 C33300 JP 0033H 



Isolate binary field to convert 
Gives ASCII equivalent of binary 
Test if value exceeds 9 
Jump if not, value less than 10 
Add 7 to get A-F ASCII value 
Display char. Return to caller 
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8.0 SYS5/SYS (DEBUG) 

SYS5/SYS is the TRSDOS DEBUG utility program. This utility may be used for 
debugging assembly language programs. Since it is an overlay to the nucleus 
module, the user need not be concerned with its load address. However, this also 
means that it cannot be used for debugging system overlays because it occupies the 
same address space. 

The DEBUG command is processed by SYS1 . When a DEBUG,ON command is 
recognized, a DEBUG flag in the system condition byte (see Section 5.1) is set. A 
DEBUG,OFF command causes the DEBUG flag to be cleared. 

DEBUG is executed after a DEBUG,ON command has been processed, and when 
one of the following conditions is true: 

1. An active BREAK key is detected (during system interrupt 
processing). 

2. At the completion of loading a utility, or user assembly language 
program. 

3. When a TRAP instruction is executed. Because the Z-80 has no 
TRAP instruction an RST 30 is used to effect a TRAP. 

Debug occupies locations 4E00 - 5 IFF. In addition to its own internal data 
structures and lists, DEBUG uses locations 4065 - 407C, which are reserved for 
this purpose, to save the program context (all of the program registers at the time 
of the trap) plus the trap addresses and their original contents. The program 
context could be saved in a local storage area; however, that would increase the size 
of DEBUG and push it over its current boundary of 51FF. 

The trap addresses and their original contents must be saved in the low memory, 
or some such area that would not be destroyed when DEBUG is reloaded, since it 
is possible for DEBUG to be overwritten by other system overlays while TRAP'ing 
through a program. This allows DEBUG to restore instructions that were replaced 
by TRAP instructions previously. 
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Local data structures in DEBUG consist of a text string used in the X display 
modes and an instruction interpretation list. This list is used to determine 
instruction length and conditional branch conditions during the single cycle 
execution mode. 

The structure of DEBUG is quite straightforward. Subroutines corresponding 
to each of the options are entered by direct jumps. A common return address is 
pushed onto the stack before jumping to any of the option subroutines. There are 
several support subroutines which are shared by the options subroutines. Among 
them are: 

1. A subroutine which stores a trap instruction at a specified address. The address, 
and its original contents are saved in the trap list in low memory (4FCA - 4FDA). 

2. A subroutine which displays the contents of 16 bytes beginning at the address 
specified in the HL register (5131 - 5189). 

3. A subroutine which reads one character from the keyboard and returns the 
character, as well as a status indicating the type of character, e.g., hex. digit, space, 
or carriage return (518A - 51A2). 

4. A subroutine which interprets a hex value (51A3 - 51CF). 

5. A subroutine which converts a hex value. Note, this subroutine has multiple 
entry points (51D0 - 51FE). 

8.1 DEBUG Entry Processing 

Upon entry, DEBUG preserves the context at the time the TRAP instruction 
(RST 30) was executed, restores the original instructions to all locations 
containing TRAP instructions and enters the X display mode. 

The context is saved in low memory at addresses 4065 - 407C. The format of 
the context saved at those addresses is shown below: 



Figure 8. 1 DEB UG Context Save Area 



ADDRESS 


CONTENTS 


4065-66 


AF 


4067-68 


BC 


4069-6A 


DE 


406B-6C 


HL 


406D-6E 


AF' 


406F-70 


BC 


4071-72 


DE' 


4073-74 


HL 1 


4075-76 


IX 


4077-78 


IY 


4079-7A 


SP 


407B-7C 


PC 



142 Chapter 8 



DEBUG Entry Processing 



In addition to the context save area, low memory holds the trap address list and 
current display address at the locations shown below. 



Figure 8.2 Trap Address List 



Address 



Contents 



405D - 5E 
405F 

4060 - 61 
4062 
4063 - 64 



1st trap address 

Original contents of trap address 

2nd trap address 

Original contents of trap address 

Display address 



When DEBUG is entered, the stack has the following configuration: 



Figure 8.3 Stack Configuration When DEBUG Entered 



Current stack pointer 



Stack pointer at time of TRAP 



} Next available location on stack 
} extra push 

} AF register at time of TRAP 
} TRAP address +1 



Stack Configuration When DEBUG Entered 



TRSDOS 2.3 Decoded 143 



DEBUG Entry Processing 



The context at the time of the TRAP, except for the AF and PC registers, is still 
in the registers. This context is saved on the stack, giving it the following 
configuration: 



Figure 8.4 Stack Configuration After DEBUG Entry Processing 



Current stack pointer 



AF 



BC 



DE 



HL 



AF' 



BC' 



DE' 



HL' 



IY 



SP 



PC 



STACK CONFIGURATION AFTER DEBUG ENTRY PROCESSING 



Note, the stack pointer at the time of the TRAP replaced the value for the AF 
register, which has been moved to the end of the stack frame. The following 
instructions are used to save the register context and copy it to the communication 
area: 



Figure 8.5 


SYS5 Coc 


ie From 4EL 


to 4E22 


4E00 Fl 


FOP 


AF 


Clear unnec. PUSH, restore AF 


4E01 Fl 


POP 


AF 


Then create a 'hole* for SP 


4E02 F5 


PUSH 


AF 


Will be filled in at 4E1F 


4E03 FDE5 


PUSH 


IY 


Save IX, no alternate 


4E05 DDE5 
* 


PUSH 


IX 


Save IY f no alternate 


* 


Save Context of Alternate Registers 


4E07 08 


EX 


AF,AF' 


Switch to alternate 


4E08 D9 


EXX 




Register set 


4E09 E5 


PUSH 


HL 


Save alternate HL 


4E0A D5 


PUSH 


DE 


Save alternatete DE 


4E0B C5 


PUSH 


BC 


Save alternate BC 


4E0C F5 


PUSH 


AF 


Save alternate AF 
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Listing Continued . 



DEBUG Entry Processing 



. . . Continued Listing 




4E0D 08 


EX 


AF,AF' 


4E0E D9 


EXX 




4E0F E5 


PUSH 


HL 


4E10 D5 


PUSH 


DE 


4E11 C5 


PUSH 


BC 


4E12 F5 


PUSH 


AF 


4E13 210000 


LD 


HL,0000H 


4E16 39 


ADD 


HL,SP 


4E17 116540 


LD 


DE,4065H 


4E1A 011800 


LD 


BC,0018H 


4E1D EDB0 


LDIR 




4E1F 227940 


LD 


(4079H),HL 


4E22 F9 


LD 


SP,HL 



Switch to primairy 

Register set 

Save main HL 

Save main DE 

Save main BC 

Save main AF 

Clear HL so we can load SP into HL 

HL points to start of saved context 

DEBUG context save area addr. 

Number of bytes in saved context 

Copy from stack to low mem. save area 

Save value of SP at time of trap 

Restore SP value at time of trap 



Figure 8.6 SYS5 Code From 4E23 to 4E49 



4E23 2A7B40 LD 

4E26 2B DEC 

4E27 7E LD 

4E28 FEE7 CP 

4E2A 2003 JR 

4E2C 227B40 LD 

4E2F 215D40 LD 



HL, (407BH) Addr of PC register +1 at trap time. 
HL Back-up to addr. of trap instr. 

to get continue addr. 
A, (HL) Fetch instr. that caused trap 
0F7H Was it a RST 30 (trap instr.) 
NZ,4E2FH Jump if not, may have been entered 

because of BREAK key hit 
(407BH) ,HL Yes, update PC reg. in context area 
HL,405DH Load trap address table 



* 
* 

* 

4E32 
4E34 
4E35 
4E37 
4E38 
4E39 
4E3A 
4E3B 
4E3C 
4E3D 
4E3E 
4E3F 



Trap address table contains original contents of 
address where traps have been stored. Format of 
entries is as follows: 

XX LSB of trap addr 
XX MSB of trap addr 
XX Original value 

Restore Original Contents of Locations That Have Traps 



0602 

AF 

0E02 

5E 

77 

23 

56 

77 

23 

7B 

B2 

2807 



LD 


B,02H 


XOR 


A 


LD 


C,02H 


LD 


E, (HL) 


LD 


(HL) ,A 


INC 


HL 


LD 


D, (HL) 


LD 


(HL) , A 


INC 


HL 


LD 


A,E 


OR 


D 


JR 


Z,4E48H 



Number of entries in table. 

Zero A 

Unnecessary instruction 

Get LSB of possible trap addr 

Zero LSB of TA from list 

Bump to MSB of TA 

Fetch MSB of TA from list 

Zero MSB of TA 

Bump to original value of TA 

Combine LSB and MSB 

Of trap address 

Jump if no entry, else check 

for valid entry 



(TA) 



Listing Continued . 
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. . . Continued Listing 




4E41 1A 


LD 


A, (DE) 


4E42 FEF7 


CP 


0F7H 


4E44 2002 


JR 


NZ,4E48H 


4E46 7E 


LD 


A, (HL) 


4E47 12 


LD 


(DE) , A 


4E48 23 


INC 


HL 


4E49 10E9 


DJNZ 


4E34H 



Fetch contents of trap addr. 

Is it a RST 30 (trap instruction) 

No, check next entry 

Yes, restore original instruction 

Fetch saved instruction 

and restore to location 

that contains trap instruction 

Bump to next entry in list 

Loop till all instr. restored 



Next, the main loop in DEBUG is entered. This loop drives the display and waits 
for the next command character. 

When an input character is received, it is compared, and if there is a match, control 
branches to a subroutine associated with the command character. After the 
command has been processed, control returns to 4E4B, which is the beginning of 
the main loop. Following is the code used in the main loop: 



Figure 8.7 SYS5 Code From 4E4B to 4E98 



* 
* 
* 


Input Command J 


4E4B ED7B7940 


LD 


SP, (4079H) 


4E4F CDCF4E 


CALL 


4ECFH 


4E52 21C03F 


LD 


HL,3FC0H 


4E55 222040 


LD 


(4020H) r HL 


4E58 CD8A51 


CALL 


518AH 


4E5B FE47 


CP 


47H 


4E5D CA804F 


JP 


Z,4F80H 


4E60 214 B4E 


LD 


HL,4E4BH 


4E63 E5 


PUSH 


HL 


4E64 FE53 


CP 


53H 


4E66 2832 


JR 


Z,4E9AH 


4E68 FE3B 


CP 


3BH 


4E6A 2842 


JR 


Z,4EAEH 


4E6C FE2D 


CP 


2DH 


4E6E 2856 


JR 


Z,4EC6H 


4E70 FE41 


CP 


41H 


4E72 2857 


JR 


Z,4ECBH 


4E74 FE43 


CP 


43H 


4E76 280A 


JR 


Z,4E82H 


4E78 FE44 


CP 


44H 


4E7A 282C 


JR 


Z,4EA8H 


4E7C FE48 


CP 


48H 


4E7E 284B 


JR 


Z,4ECBH 


4E80 FE49 


CP 


49H 


4E82 CA5D50 


JP 


Z,505DH 
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Restore context table value to SP 

Display register values (X display) 

Addr. of next to last row of display 

Save as input line display area 

Get a char, of input 

Test for G 

Jump if G command (Go command) 

Return addr. for all other commands 

To the stack 

Test for S 

Jump if S command 

Not S f test for; 

Jump if semi-colon (increment 

memory display 1 page) 

Not ";" test for "-" 

Jump if dash (decrement memory 

display 1 page) 

Not dash, test for A 

Jump if A command (ASCII display) 

Not A, test for C 

Go if C cmd (Single step with calls) 

Not C, test for D 

Jump if D command (Dislay memory) 

Not D, test for H 

Jump if H cmd (Hexadecimal display) 

Not H, test for I and go if 

I command (Single step next instr) 



Listing Continued . 



Display Formats 



. . . Continued Listing 




4E85 FE4D 


CP 


4DH 


4E87 CADB4F 


JP 


Z,4FDBH 


4E8A FE52 


CP 


52H 


4E8C CA1150 


JP 


Z,5011H 


4E8F FE55 


CP 


55H 


4E91 280B 


JR 


Z,4E9EH 


4E93 FE58 


CP 


58H 


4E95 2802 


JR 


Z f 4E99H 


4E97 EF 


RST 


28H 


4E98 C9 


RET 





Not I, test for M (Enter 

memory modification mode) 

Jump if M command 

Not M, test for R (mod. reg. contents) 

Jump if R command 

Not R, test for U 

Jump if U command 

Not U, test for X 

to primary display) 

Jump if X command to 

Process input char as overlay request 

Then return to 4E4B 



(Dynamic display) 
(Dynamic display) 
(Return 



8.2 Display Formats 

There are two display formats available to DEBUG users. One, called the X, or 
register, display is shown below. The other, called the memory display, is also 
shown below. 



Figure 8.8a Register Display 



AF 


= 


9D 


88 


S — 


-I 






























BC 


= 


09 


9C 


= > 


21 41 


7C 


B5 


C8 


7C 


18 


BB 


EB 


2A 


21 


41 


E3 


E5 


2A 


23 


DE 


= 


01 


04 


= > 


1A 4D 


45 


4D 


4F 


52 


59 


20 


53 


49 


5A 


45 


00 


52 


41 


44 


HL 


= 


00 


54 


=> 


01 01 


5B 


IB 


0A 


1A 


08 


18 


09 


19 


20 


20 


0B 


78 


Bl 


20 


AF 1 


= 


FF 


FF 


SZ1H1PNC 






























BC 




40 


5C 


= > 


4E 5B 


40 


CB 


FE 


11 


F7 


45 


ED 


53 


59 


40 


CB 


F6 


3E 


01 


DE 1 


'* 


01 


08 


= > 


4F 52 


59 


20 


53 


49 


5A 


45 


00 


52 


41 


44 


49 


4F 


20 


53 


HL 1 




4D 


00 


= > 


20 46 


4F 


52 


4D 


41 


54 


29 


20 


4F 


52 


49 


47 


49 


4E 


41 


IX 


= 


40 


15 


= > 


01 78 


43 


00 


00 


00 


4B 


49 


07 


58 


04 


31 


3E 


20 


44 


4F 


IY 


= 


FF 


FF 


=> 


00. F3, 


• AF 


C3 


74 


06 


C3 


00 


40 


C3 


00 


40 


El 


E9 


C3 


9F 


SP 


= 


41 


E0 


= > 


52 04 


9B 


43 


10 


04 


40 


38 


B4 


43 


DD 


03 


15 


40 


FF 


FF 


PC 


= 


00 


60 


= > 


0B 78 


Bl 


20 


FB 


C9 


31 


00 


06 


3A 


EC 


37 


3C 


FE 


02 


D2 






FF00 


= > 


00 FF 


00 


FF 


00 


FF 


00 


FF 


10 


FE 


01 


FF 


01 


FF 


21 


FF 






FF10 


= > 


00 DE 


00 


FE 


20 


FF 


20 


FF 


01 


FF 


01 


FF 


01 


FF 


01 


F7 






FF20 


= > 


09 FF 


00 


FF 


01 


F7 


00 


FE 


00 


FF 


00 


F6 


00 


FF 


20 


FE 






FF30 


= > 


00 FE 


09 


FF 


20 


F7 


00 


FF 


20 


FF 


00 


FF 


20 


FF 


00 


FF. 
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Figure 8.8b Register Display 



0000 


= > 


|F3|AF C3 


74 


06 


C3 


00 


40 


C3 


00 


40 


El 


E9 


C3 


9F 


06 


0010 


= > 


C3 


03 


40 


C5 


06 


01 


18 


2E 


C3 


06 


40 


C5 


06 


02 


18 


26 


0020 


= > 


C3 


09 


40 


C5 


06 


04 


18 


IE 


C3 


0C 


40 


11 


15 


40 


18 


E3 


0030 


=> 


C3 


0F 


40 


11 


ID 


40 


18 


E3 


C3 


12 


40 


11 


25 


40 


18 


DB 


0040 


= > 


C3 


D9 


05 


C9 


00 


00 


C3 


C2 


03 


CD 


2B 


00 


B7 


C0 


18 


F9 


0050 


= > 


0D 


0D 


IF 


IF 


01 


01 


5B 


IB 


0A 


1A 


08 


18 


09 


19 


20 


20 


0060 


«> 


0B 


78 


Bl 


20 


FB 


C9 


31 


00 


06 


3A 


EC 


37 


3C 


FE 


02 


D2 


0070 


= > 


00 


00 


C3 


CC 


06 


11 


80 


40 


21 


F7 


18 


01 


27 


00 


ED 


B0 


0080 


= > 


21 


E5 


41 


36 


3A 


23 


70 


23 


36 


2C 


23 


22 


A7 


40 


11 


2D 


0090 


=> 


01 


06 


1C 


21 


52 


41 


36 


C3 


23 


73 


23 


72 


23 


10 


F7 


06 


00A0 


=> 


15 


36 


C9 


23 


23 


23 


10 


F9 


21 


E8 


42 


70 


31 


F8 


41 


CD 


00B0 


= > 


8F 


IB 


CD 


C9 


01 


21 


05 


01 


CD 


A7 


28 


CD 


B3 


IB 


38 


F5 


00C0 


= > 


D7 


B7 


20 


12 


21 


4C 


43 


23 


7C 


B5 


28 


IB 


7E 


47 


2F 


77 


00D0 


= > 


BE 


70 


28 


F3 


18 


11 


CD 


5A 


IE 


B7 


C2 


97 


19 


EB 


2B 


3E 


00E0 


= > 


8F 


46 


77 


BE 


70 


20 


CE 


2B 


11 


14 


44 


DF 


DA 


7A 


19 


11 


00F0 


= > 


CE 


FF 


22 


Bl 


40 


19 


22 


A0 


40 


CD 


4D 


IB 


21 


11 


01 


CD. 



Either display may be in ASCII or hexadecimal mode. The mode and format are 
selected by the commands: 

A - ASCII mode 
H - HEXADECIMAL mode 
X - Register display format 
S - Memory display format 

The beginning memory address for both display formats is specified using the 
DXXXX command, where XXXX is the starting address for the display. When in 
the register dislay format, the memory display begins at the exact address 
specified in the D command. When in the memory display format, the address is 
rounded up to the nearest 256-byte page boundary. Display addresses may be 
scrolled forward or backward 256 bytes through use of the '; ' ' + ' and '-' 
commands. 

The display subroutine begins at 4ECF and continues through 4F52. A text list 
used for the register display begins at 4F54 and ends at 4F7F. Support 
subroutines used by the main display routine begin at 5131 and 51 DO. The use 
of these subroutines by the main display loop is shown below. 
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Figure 8.9 SYS5 Code From 4ECF to 4F7F 



* 
* 

* 

4ECF 
4ED2 
4ED3 
4ED5 
4ED7 
4EDA 
4EDD 
4EDE 
4EE1 

4EE3 
* 

* 

* 



Register display 

3A5E40 LD A,(405EH) Get display mode flag 

B7 OR A Set status flags for display size 

2070 JR NZ,4F45H Jump if not register display 

3E1C LD A,1CH Home cursor command 

CD3300 CALL 0033H Give video driver home cursor command 

216540 LD HL r 4065H Address of saved register context 

E5 PUSH HL Save context address 

21544F LD HL,4F54H Address of register name text 

060C LD B,0CH No. of register values to display 

1805 JR 4EEAH Go display register context 

Display register values plus the contents of the 
addresses contained therein. 



4EE5 3E0D 
4EE7 CD3300 
4EEA CDF651 
4EED E3 



4EEE 5E 



4EEF 
4EF0 
4EF1 
4EF2 
4EF3 
4EF4 
4EP6 
4EF9 
4EFC 
4EFD 
4F00 
4F01 
4F04 

4F05 
4F07 
4F09 
4F0B 
4F0C 
4F0D 
4F10 
4F12 
4F14 
4F15 



23 

56 

23 

E5 

EB 

3E3D 

CD3300 

CDF251 

7C 

CDEF51 

7D 

CDEF51 

78 

E60B 

FE08 

201C 

4D 

C5 

217 84F 

0608 

CB21 

7E 

3802 



4F17 3E2D 



LD 
CALL 
CALL 
EX 

LD 

INC 

LD 

INC 

PUSH 

EX 

LD 

CALL 

CALL 

LD 

CALL 

LD 

CALL 

LD 

AND 

CP 

JR 

LD 

PUSH 

LD 

LD 

SLA 

LD 

JR 

LD 



A,0DH 
0033H 
51F6H 
(SP),HL 

E,(HL) 

HL 

D,(HL) 

HL 

HL 

DE,HL 

A,3DH 

0033H 

51F2H 

A,H 

51EFH 

A,L 

51EFH 

A,B 

0BH 

08H 

NZ,4F27H 

C r L 

BC 

HL,4F78H 

B,08H 

C 

A f (HL) 

C,4F19H 

A f 2DH 



Use a carriage return to 

Skip to next line of display 

Display reg. name pointed to by HL 

Addr. of next reg. name 

to stack. Context addr. for 

Register to HL. Load LSB of 

reg. value from context list 

Bump to MSB of context list 

Fetch MSB of reg. value 

Bump to addr. of next reg. set 

Save addr. in context list 

Value for that reg. to HL 

ASCII value for = 

Display = 

Display a blank following = 

A = MSB of context value 

Convert to ASCII hex and display 

A = LSB of context value 

Convert to ASCII hex and display 

A = remaining number of register 

values to be displayed 

Test if index is exactly 8 

and if not, display status flags 

Jump if not displaying AF reg. 

Status flags to C register 

Save no. of reg. to be displayed 

Addr of ASCII chars for status bits 

B = no. of stat bits to examine 

Shift a status bit into CARRY 

Get letter for status condition 

Jump if status bit is on 

and display letter, else 

ASCII value for - 



Listing Continued . . . 
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. . . Continued Listing 

4F19 CD3300 CALL 

4F1C 23 INC 

4F1D 10F3 DJNZ 

4F1F CI POP 

4F20 3EEC LD 

4F22 CD3300 CALL 

4F25 1803 JR 

4F27 CD3151 CALL 

4F2A El POP 

4F2B E3 EX 

4F2C 10B7 DJNZ 

4F2E El POP 

4F2F 2A6340 LD 



0033H . Display a - (or letter if 

condition is true) 
HL . Bump to next letter in status list 
4F12H . Loop till all status bits 

tested and displayed 
BC . restore no c reg. left to display 
A,0ECH . Comparison code for 44 blanks 
0033H . Display 44 blanks 
4F2AH . Skip over => value display 
5131H . Display => followed by 

contents of addr. in reg, 
HL . Restore addr next register set 
(SP),HL . Put address on stack 
4EE5H . Loop till all registers displayed 
HL Clear stack 
HL, (4063H) Load beginning display address 



The subroutine at 5131 is called from the register display routine to display the 
value 1, value 2, ... value 16 portion of the display. The code for this subroutine is 
shown below. 



Figure 8.10 SYS5 Code From 5131 to 5188 



5131 


C5 


PUSH 


BC 


5132 


3E3D 


LD 


A,3DH 


5134 


CD3300 


CALL 


0033H 


5137 


3E3E 


LD 


A,3EH 


5139 


CD3300 


CALL 


0033H 


513C 


CDF251 


CALL 


51F2H 


513F 


0610 


LD 


B,10H 


5141 


CD6551 


CALL 


5165H 


5144 


3A5D40 


LD 


A, (405DH) 


5147 


FE41 


CP 


41H 


5149 


2013 


JR 


NZ f 515EH 


514B 


CDF251 


CALL 


51F2H 


514E 


7E 


LD 


A, (HL) 


51 4F 


FE20 


CP 


20H 


5151 


3804 


JR 


C,5157H 


5153 


FEC0 


CP 


0C0H 


5155 


3802 


JR 


C5159H 


5157 


3E2E 


LD 


A r 2EH 


5159 


CD3300 


CALL 


0033H 


515C 


23 


INC 


HL 
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Preserve caller's BC 

ASCII value for = 

Display = 

ASCII value for > 

Display > 

Display a space 

Number of values to display. 

If addr to modify is being 

displayed bracket it with bars 

Fetch display mode flag 

Test for A 

Jump if not alphabetical 

Display a blank 

Fetch a character 

Test for control code 

(compare to space) 

Jump if control code. Display a . 

Test for compression code 

Jump if not a compression code 

ASCII value for . 

Display character or . 

Bump to next character in list 

Listing Continued . 



Display Formats 



. . . Continued Listing 






515D 


AF 


XOR 


A 


515E 


C4D051 


CALL 


NZ,51D0H 


5161 


10DE 


DJNZ 


5141H 


5163 


CI 


POP 


BC 


5164 

if 


C9 


RET 




* 
* 


Put Display Bars Around Lc 


5165 


ED5B6040 


LD 


DE, (4060H) 


5169 


13 


INC 


DE 


516A 


E5 


PUSH 


HL 


516B 


AF 


XOR 


A 


516C 


ED52 


SBC 


HL,DE 


516E 


3E95 


LD 


A,95H 


5170 


280E 


JR 


Z r 5180H 


5172 


CD8451 


CALL 


5184H 


5175 


23 


INC 


HL 


5176 


7D 


LD 


A,L 


5177 


B4 


OR 


H 


5178 


El 


POP 


HL 


5179 


3EAA 


LD 


A,0AAH 


517B 


CA3300 


JP 


Z r 0033H 


517E 


1808 


JR 


5188H 


5180 


CD3300 


CALL 


0033H 


5183 


El 


POP 


HL 


5184 


78 


LD 


A,B 


5185 


FE08 


CP 


08H 


5187 


C0 


RET 


NZ 


5188 


1868 


JR 


51F2H 



Clear status to skip CALL below 

Display a hex value 

Loop till 16 values displayed 

Restore caller's BC 

Return to caller 



Load 2nd trap address into DE 

Bump to addr of following instruction 

Save current display address 

Clear CARRY for SBC operation 

Compare display and modify address 

ASCII code for "left bar" 

If display = modify addr. 

disp. left bar 

If 8 values disp. add an extra space 

Bump display address 

Then combine 

LSB and MSB 

Restore current display address 

ASCII code for right bar 

If disp. addr = modify address 

Display closing right bar 

Display space between values and ret 

Display left bar 

Restore display address 

Get no. of lines still to display 

If half a line (8) left, add a space 

Exit if not half way point yet 

Go display a blank and ret to caller 



A second set of display subroutines is shown below. These subroutines have 
multiple entry points which are identified as ENTRY 1, ENTRY 2, . Each entry 
point is specific to a particular format and mode. 



Figure 8.11 SYS5 Code From 51 DO to 51 FE 



51D0 7E Entry 1 


LD 


A, (HL) 


51D1 23 


INC 


HL 


51D2 1805 


JR 


51D9H 


51D4 7C Entry 2 


LD 


A,H 


51D5 CDD951 


CALL 


51D9H 


51D8 7D 


LD 


A,L 


51D9 F5 


PUSH 


AF 


51DA IF 


RRA 




51DB IF 


RRA 




51DC IF 


RRA 




51DD IF 


RRA 




51DE CDE251 


CALL 


51E2H 


51E1 Fl 


POP 


AF 



Fetch an 8-bit hex value 

Bump to address of next 8-bit value 

Go convert hex to ASCII and ret 

MSB of value to convert and display 

Display 2 hex digits (MSB) , then 

get LSB and display other 2 hex digits 

Save value to be displayed 

Right shift value 

four 

places 

to isolate and convert upper 

4 bits to hex ASCII and display 

Restore value being displayed 

Listing Continued . . . 
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'V 'H,' %' 'S,' «;' and '-' Commands 



. . . Continued Listing 

51E2 E60F AND 0FH 

51E4 C630 ADD A,30H 

51E6 FE3A CP 3AH 

51E8 3802 JR C,51ECH 

51EA C607 ADD A r 07H 

51EC C33300 JP 0033H 

51EF CDD951 CALL 51D9H 

51F2 3E20 LD A r 20H 

51F4 18F6 JR 51ECH 

51F6 CDFC51 CALL 51FCH 

51F9 CDFC51 CALL 51FCH 

51FC 7E LD A r (HL) 

51FD 23 INC HL 

51FE 18EC JR 51ECH 



Isolate lower 4 bits of value 

Gives ASCII value for digit 

Test for hex value A-F 

Jump if digit 0-9 else 

get ASCII value for A-F 

Display char in A and return 
Display 2 hex digits 
ASCII code for a blank 
Display blank and return 
Get char from list in HL 
Display char and ret to 51F9 
Get next char from list 
Display and Ret to 51FC 
Get char from list addr in HL 
Bump to next char, in list 
Display char, ret. 
to caller of 51FC 



8.3 'A,' 'H,' 'X,' 'S,' V and <-' Commands 

These commands select a display format or mode. The code for the display 
driver has been discussed previously. This section will describe the code executed 
for the 'A,' 'H,' 'X,' ';' and '-' commands. 

Code used for the 'A' and 'H' commands follows: 



Figure 8.12 SYS5 Code From 4ECB to 4ECE 



A/H Command, 



4ECB 325D40 LD 
4ECE C9 RET 



(405DH) ,A Save display mode value 

Return to main display loop 



Code for the 'X' and 'S' commands follows: 



Figure 8.13 SYS5 Code From 4E99 to 4E9D 



* 
* 



4E99 AF 
4E99 325E40 
4E9D C9 



X Command. Return to Primary Display. 

XOR A Clear A-reg. 

LD (405EH) ,A Signal short main display) 

RET Return to 4E4B 
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'D' Command 



Code for the ';' and '-' command follows: 



Figure 8.14 SYS5 Code From 4EAE to 4EC9 



* ; or - Conimand. 
* 


Adjust Display 


4EAE 014000 


LD 


BC,0040H 


4EB1 2A6340 


LD 


HL, (4063H) 


4EB4 3A5E40 


LD 


A, (405EH) 


4EB7 B7 


OR 


A 


4EB8 2807 


JR 


Z,4EC1H 


4EBA 0E00 


LD 


C r 00H 


4EBC 78 


LD 


A,B 


4EBD B7 


OR 


A 


4EBE 2001 


JR 


NZ,4EC1H 


4BC0 04 


INC 


B 


4EC1 09 


ADD 


HL,BC 


4BC2 226340 


LD 


(4063H) f HL 


4BC5 C9 

if 


RET 




* 
* 


- Command. Decremei 


4BC6 01C0FF 


LD 


BC f 0FPC0H 


4BC9 18E6 


JR 


4EB1H 



Amt. to advance display (1 page) ; 

Current beginning display address 

Get display mode flag 

Set status for display mode 

Jump if short display 

Clear LSB of adjustment address 

Fetch MSB of adjustment addr and 

Set flags for MSB of adjustment addr 

Jump if negative adjustment 

Gives 100 (positive adjustment) 

Compute new display address, then 

save beginning display address 

Ret to 4E4B 



Adj. value for previous page 
Go update display address 



8.4 'D' Command 

The 'D' command initializes the beginning display address, which is kept at 
4063 - 4064, to the hexidecimal value following the 'D' character. Following is 
the code used for processing this command: 



Figure 8.15 SYS5 Code From 4EA8 to 4EAC 



* 

* 



4EA8 CDA351 
4EAB C8 
4EAC 1814 



D Command. Dislay Memory. 

CALL 51A3H Get beginning addr. from keyboard 

RET Z Rtn. to 4E4B if any error 

JR 4EC2H Else save starting display address 
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'M' Command 



Support subroutines required for this command are shown below: 



Figure 8.16 SYS5 Code From 51A3 to 51CF 



* 

* 
* 

51A3 
51A6 
51A7 
51AA 
51AD 
51B0 
51B1 
51B2 
51B3 
51 B4 
51 B5 
51 B6 
51B9 
51 BB 
51BC 
51BE 



51 BF 
51C1 
51C2 
51C4 
51C5 
51C7 
51C9 
51CB 
51CC 
51CE 
51 CF 



CD8A51 

C8 

210000 

CDBF51 

DA4B4E 

29 

29 

29 

29 

B5 

6F 

CD8A51 

20EF 

IF 

CE81 

C9 



CALL 

RET 

LD 

CALL 

JP 

ADD 

ADD 

ADD 

ADD 

OR 

LD 

CALL 

JR 

RRA 

ADC 

RET 



Test character, 



D630 

D8 

C6E9 

D8 

C606 

3803 

C607 

D8 

C60A 

B7 

C9 



SUB 

RET 

ADD 

RET 

ADD 

JR 

ADD 

RET 

ADD 

OR 

RET 



Input a hex value 

518AH Wait for next character 

Z Ret to caller if it's blank or comma 

HL,0000H Zero accum. to contain hex val on exit 

51BFH Get binary value if it was a hex digit 

C r 4E4BH Jump if not a hex digit (0-9, A-F) 

HL,HL Digit times 2 

HL,HL Digit times 4 

HL,HL Digit times 8 

HL,HL Digit times 16. In case more 

L than 2 digits are entered 

L,A Only last 2 will be used 

518AH Get next digit and if not a blank 

NZ,51AAH go test char, accumulate hex value 

CARRY flag to Bit 7 

A,81H Will set CARRY if carriage return 

Return to caller 

Return with CARRY if not 0-9, or A - F 
(hex digit) 

30H Compare with ASCII zero 

C Ret if less than 0. Obviously not hex 

K,tfE9H Test for a letter > F 

C Return if > F. Not a hex digit 

A,06H Test for letter (A-Z) 

C,51CCH Jump if letter 

A,07H Not letter, digit 0-9 

C Unnecessary instruction 

A,0AH Compute final binary value 

A Set status flags for value 
Return to caller 



8.5 'M' Command 

This command modifies a memory location. It is more complex than one would 
think it ought to be because it must update any display line which contains the 
original contents of the location being charged, and it displays the bars 1 1 around 
the location being changed. The code used for this command is shown below. 
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'R' Command 



Figure 8.17 SYS5 Code From 4FDB to 500F 



* 

* 



4FDB 
4FDE 
4FE1 
4FE4 
4FE5 
4FB6 
4FE9 
4FBC 
4FEF 
4FF2 
4FF5 
4FF6 
4FF9 
4FFC 
4FFD 



2A6040 

CDA351 

226040 

D8 

E5 

CDCF4E 

21403F 

222040 

2A6040 

CDD451 

E5 

21803F 

222040 

El 

CDD051 



5000 3E2D 
5002 CD3300 

5005 Dl 

5006 CDA351 
5009 EB 
500A 801 
500C 73 
500D D8 
500E 23 
500F 18D0 



M Command 

LD HL, (4060H) Current modify address 

CALL 51A3H Get next modify address 

ID (4060H) ,HL Save previous, or new addr if entered 

RET C Ret to caller if carriage return 

PUSH HL Save addr of location to be modified 

CALL 4ECFH Update display in case it's changed 

LD HL,3F40H Screen addr for current mem contents 

LD (4020H),HL Save as cursor addr in video DCB 

LD HL, (4060H) Modify address to HL 

CALL 51D4H Display address to be modified 

PUSH HL Save addr of location to modify 

LD HL,3F80H Get addr to display modified mem and 

LD (4020H) , HL save as new cursor addr in video DCB 

POP HL Restore addr of location to modify 

CALL 51D0H Display conts. of location to be 

modified. Follow it with a hyphen "-" 

LD A,2DH ASCII value for - 

CALL 0033H Display - 

POP DE Reload addr of location to modify 

CALL 51A3H Input new value for this location 

EX DE,HL Save it in DE. Storage addr to HL 

JR Z,500DH If space input don't modify, 

LD (HL) ,E save new value 

RET C Exit if carriage return entered 

INC HL else bump to next address 

JR 4FE1H Go update display, get replacement val. 



All of the support routines used by this command have been discussed in 
previous sections. 

8.6 *R' Command 

This command is similar to the 'M' command except that it modifies a register's 
contents rather than those of a memory location. It has as a parameter a two or 
three character register designation. Two characters are used to signify a change in 
the main register set, while a three character name (two letter register characters 
plus a ' ) are used to indicate a change to the alternate register set. 

The register specification is validated using the text list used for the register 
display. Any register changed is modified in the context save area. Following is the 
code used for this command: 
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'R' Command 



Figure 8.18 SYS5 Code From 501 1 to 505C 



* 
* 



5011 CD8A51 

5014 C8 

5015 4F 

5016 CD8A51 
5019 C8 
501A 57 
501B 1E20 
501D CD8A51 



5020 
5021 
5023 
5024 
5027 
5028 
5029 
502C 
502E 
502F 

5030 
5032 
5033 
5034 
5035 
5037 
5038 
5039 
503A 



D8 

2806 

5F 

CD8A51 

C0 

D8 

21544F 

060C 

7E 

B9 

2806 

23 

23 

23 

10F7 

C9 

23 

7E 

BA 



503B 20F6 
503D 23 
503E 7E 
503F BB 
5040 20F2 
5042 3E18 

5044 90 

5045 90 

5046 4F 

5047 0600 

5049 216540 

504C 09 
504D E5 
504E 3E1E 

5050 CD3300 

5053 Dl 

5054 CDA351 
5057 C8 



R Command 

CALL 518AH 

RET Z 

LD C,A 

CALL 518AH 

RET Z 

LD D,A 

LD E,20H 

CALL 51 8 AH 

RET C 

JR Z,5029H 

LD E,A 

CALL 51 8 AH 

RET NZ 

RET C 

LD HL,4F54H 

LD B,0CH 

LD A, (HL) 

CP C 

JR Z f 5038H 

INC HL 

INC HL 

INC HL 

DJNZ 502EH 

RET 

INC HL 

LD A, (HL) 

CP D 

JR NZ,5033H 

INC HL 

LD A, (HL) 

CP E 

JR NZ,5034H 

LD A,18H 

SUB B 

SUB B 

LD C,A 

LD B,00H 

LD HL,4065H 

ADD HL,BC 

PUSH HL 

LD A,1EH 

CALL 0033H 

POP DE 

CALL 51A3H 

RET Z 



Get 1st letter of reg pair (next char) 

Ret if comma, blank or C.R. (error) 

Save 1st letter of register pair 

Get 2nd letter of reg pair (next char) 

Ret if comma, blank or C.R. (error) 

Save 2nd letter of register pair 

Default RP terminator. Use for comma 

Get char, after register pair. 

Should be blank or "," 

Ret if control. Error if not blank 

Go if comma/blank (legal separator) 

Save actual char. Could be * 

Get next char. Must be comma/blank 

Exit if 

neither. Ignore illegal command 

Address of register pair table 

Number of pairs in table. (12) 

Get first char, of register pair 
Compare to first char, 
of pair entered 
If so, go test 2nd char 
Else skip over 2nd 
and 3rd char to 1st 
char of next entry 
Loop till all entries checked 
Ignore cmd if no match in list 
Bump to 2nd char of RP name 
Get 2nd char in RP name list 
Compare to 2nd char, 
of name entered 

Go if no match. Scan rest of list 
Bump to 3rd char in RP name list 
Get it. will be blank or quote 
Compare to value entered 
Go if no match (input error) 
2 times Max no. of entries in RP list 
Minus offset to 
matching entry gives 
byte offset into 
saved register pair area 
Origin of save register pair 
values in low memory 
Compute addr of RP to be modified 
Save addr of RP to be altered 
Code to erase to end of line 
Blank remainder of line 
DE = address of RP to change 
Put value for register pair in DE 
Exit if illegal character entered 

Listing Continued . . . 
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'I,' 'C Commands (Single Step) 



. . . Continued Listing 

5058 EB EX DE,HL 

5059 73 LD (HL) ,E 
505A 23 INC HL 
505B 72 LD (HL) ,D 
50 5C C9 RET 



Value to DE. Address to HL 
Save LSB of new register value 
Bump to next byte 
Save MSB of new register value 
Return to caller 



8.7 'I,' 'C Commands (Single Step) 

These commands allow a program to be executed instruction by instruction 
under user control. The difference between the T and 'C commands is that when 
the 'C command is used, all subroutine calls are executed in full with the TRAP 
occuring on return from the subroutine. When an T command is used, the trap 
occurs at the next instruction executed. 

Most of the code for the T and *C commands is common. In addition to sharing 
code between themselves, code is shared with the 'G' command. 

When instructions are single-stepped, a trap instruction replaces the 
instruction following the one to be stepped. The current instruction is then 
executed as though a 'G' command has been executed. When the instruction cycle 
completes and the following instruction is executed, DEBUG is re-entered 
because of the trap instruction. 

In order to properly place the trap instruction, two things must be known. First, 
the byte length of the instruction to be executed must be found so the address of 
the following instruction can be computed. And second, the type of instruction to 
be executed must be known because control may not return in-line. Each 
instruction to be stepped is compared with up to three lists in order to determine 
its length and type. 

Instructions are divided into six types. Type instructions are non-branching, 
and non-direct. The next instruction to be executed immediately follows a type 
instruction. Type 1 instructions indirectly branch through the address in the HL 
register. After execution, they do not return to the following instruction. Type 2 
instructions are indirect jumps through the IX or IY registers. Type 3 instructions 
are long jumps. Type 4 instructions are short jumps such as JR or D JNZ. Type 5 
instructions are RET type of instructions, and Type 6 are CALL's. Call 
instructions are identified repeatedly, so the T or 'C command selected can treat 
them accordingly. 

Branch instructions which will not return to the next in-line instruction cause a 
TRAP to be stored at the target jump address. In addition, a TRAP is stored at the 
address for the following instruction in case the branch is conditional. This means 
the status flags need not be tested for conditional jumps since a trap will be placed 
at both possible exits. 
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'I,' 'C Commands (Single Step) 



Following is the code used for the T and 'C commands: 



Figure 8.19 SYS5 Code From 505 D to 50 DE 



* 

* 



Single Step (I and C Commands) 



505D 
505E 
5062 
5063 
5066 
5068 
506A 
506C 
506E 
5071 
5073 
5075 
5078 
5079 
507A 
507B 
507C 
507D 
507E 

507F 
5080 
5081 
5083 
5084 
5085 
5087 
5089 
508A 
508B 

508D 
508E 
5090 
5091 
5092 
5095 
5098 
5099 
509A 
509C 
509E 
509F 
50A1 
50 A3 
50A5 



F5 

ED5B7B40 

1A 

211551 

FEDD 

280E 

FEFD 

280A 

21E050 

FEED 

2006 

210E51 

13 

1A 

IB 

4F 

7E 

Al 

23 

BE 

23 

2806 

23 

7E 

FE05 

30F3 

7E 

47 

E60F 

6F 

2600 

19 

D5 

116240 

CDCA4F 

El 

78 

E6F0 

2816 

23 

FE20 

3835 

2827 

FE40 



PUSH AF 

LD DE,(407BH) 

LD A, (DE) 

LD HL,5115H 

CP 0DDH 

JR Z,5078H 

CP 0FDH 

JR Z,5078H 

LD HL,50E0H 

CP 0EDH 

JR NZ r 507BH 

LD HL,510EH 

INC DE 

LD A,(DE) 

DEC DE 

LD C r A 

LD A, (HL) 

AND C 

INC HL 

CP (HL) 

INC HL 

JR Z,5089H 

INC HL 

LD A, (HL) 

CP 05H 

JR NC,507CH 

LD A, (HL) 

LD B, A 

AND 0FH 

LD L,A 

LD H,00H 

ADD HL,DE 

PUSH DE 

LD DE,4062H 

CALL 4FCAH 

POP HL 

LD A,B 

AND 0F0H 

JR Z,50B4H 

INC HL 

CP 20H 

JR C,50D8H 

JR Z,50CCH 

CP 40H 



Save command specification 

Load resumption address 

Load OP code at 'resume' address 

Addr of group 3 type instructions 

Test for indexed instruction 

Jump if indexed IX instr. 

If not, test for IY indexed instr. 

Jump if indexed IY 

Addr of group 1 type instructions 

Test for special instruction 

Go if not indexed or special instr. 

Addr of group 2 type instructions 

Bump to next byte of instruction 

Fetch next instruction byte 

Backspace to start of instruction 

C = LSB of OP code 

Fetch OP code mask 

Apply mask to LSB of OP code 

Bump to OP code value in 

instruction list 

Compare to OP code in table 

Bump to code length in list 

Jump if OP codes match, else 

bump to next 3 byte entry 

Fetch mask 

and test for end of list 

Go if end of list not reached 
Get code/length value for instruction 
Save in B 

Isolate length of instruction to 
be single cycled 
Then form length of instruction 
in HL, and 

add to addr of instr. to execute 
Save address of next instruction 
Load trap address save location 
Original instr to 4062. Trap to (HL) 
Restore addr of instr after current 
Reload code/length for current instr 
Isolate type e.g. RET, JP, CALL ... 
Go if type 0. Exec. cont. at next addr. 
Bump addr. of next instr. by one 
Test for JP type instr. 
Jump if JP (HL) instr. (Type 1) 
Jump if JP (IX/IY) instr. (Type 2) 
Test for JP XXXX type instr. 

Listing Continued . . . 



158 Chapter 8 



'G' Command 



. . . Continued Listing 






50A7 


3817 


JR 


C,50C0H 


50A9 


280F 


JR 


Z r 50BAH 


50AB 


FE60 


CP 


60H 


50 AD 


3808 


JR 


C,50B7H 


50AF 


Fl 


POP 


AF 


50B0 


FE49 


CP 


49H 


50B2 


2806 


JR 


Z,50BAH 


50B4 


C3A44F 


JP 


4FA4H 


50B7 


2A7940 


LD 


HL, (4079H) 


50BA 


7E 


LD 


A, (HL) 


50BB 


23 


INC 


HL 


50BC 


66 


LD 


H, (HL) 


50BD 


6F 


LD 


L,A 


50BE 


181B 


JR 


50DBH 


50C0 


4E 


LD 


C, (HL) 


50C1 


AF 


XOR 


A 


50C2 


CB79 


BIT 


07H,C 


50C4 


2801 


JR 


Z,50C7H 


50C6 


2F 


CPL 




50C7 


47 


LD 


B,A 


50C8 


23 


INC 


HL 


50C9 


09 


ADD 


HL,BC 


50CA 


180F 


JR 


50DBH 


50CC 


2A7540 


LD 


HL, (4075H) 


50CF 


CB69 


BIT 


05H r C 


50D1 


2808 


JR 


Z r 50DBH 


50D3 


2A7740 


LD 


HL, (4077H) 


50D6 


1803 


JR 


50DBH 


50D8 


2A6B40 


LD 


HL, (406BH) 


50DB 


CDCA4F 


CALL 


4FCAH 


50DE 


18D4 


JR 


50B4H 



Jump if DJNZ (Type 3) 

Jump if JP XXXX (Type 4) 

Test for type 6 

Jump if code 5 (RET type instr.) 

Restore command (I or C) 

Compare with I. If so go 

store trap at CALL addr and execute 

C command. Go restore context 

and execute instruction 

Load ret addr from context stack 

LSB of return addr. 

Bump to MSB of ret. addr. 

load MSB of return addr. 

HL = return address 

Go restore context and exec, instr. 

Fetch offset for DJNZ, JR 

Clear status flags 

Test sign bit of offset displacement 

Jump if positive. Forward jump 

Negative displacement. Convert to 

8 bit negative value 

Bump to addr of following instr. 

Add offset to get addr of next instr, 

Go restore context, execute instr. 

Load IX in case of JP (IX) 

Test if JP (IX) 

If JP (IX) go execute instruction 

Load IY. JP (IY) instr. 

Go restore context, execute instr. 

Get jump address from HL 

Stuff trap instruction there 

Go restore context, execute instr. 



8.8 'G' Command 

The 'G' command causes the TRAP'd program to be restarted. An execution 
address may be specified as an option; otherwise, execution resumes at the PC 
address in the saved context. 

Up to two TRAP addresses may also be optionally specified. If TRAP addresses 
are given, the original contents of the locations specified by the TRAP addresses 
are saved in the trap list table beginning at 4062. 
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Before passing control to the resumed program, all context at the time of the 
trap is restored. Control is returned via an RET instruction as it requires no 
registers. The following code is used for 'G' command processing: 



Figure 8.20 SYS5 Code From 4F80 to 4FDA 



* 
* 



4F80 
4F82 
4F85 
4F88 
4F8A 
4F8D 
4F8F 
4F92 
4F93 



0602 

116240 

CDA351 

2803 

227B40 

380A 

CDA351 

F5 

C4CA4F 



4F96 Fl 

4F97 10F4 

4F99 210F40 

4F9C 221643 

4F9F 3EJC3 

4FA1 321543 

4FA4 217A40 

4FA7 060B 
* 

* Transfer 

4FA9 56 
4FAA 2B 
4FAB 5E 
4FAC 2B 
4FAD D5 

4FAE 10F9 
* 

* 



4FB0 
4FB1 
4FB2 
4FB3 
4FB4 
4FB5 
4FB6 
4FB7 
4FB8 
4FB9 
4FBA 
4FBB 
4FBC 
4FBE 



Fl 

a 

Dl 
El 
08 
D9 
Fl 

a 

Dl 

El 

08 

D9 

DDE1 

FDE1 



G Command 



LD 

ID 

CALL 

JR 

LD 

JR 

CALL 

PUSH 

CALL 

POP 

DJNZ 

LD 

LD 

LD 

LD 

LD 

LD 



B r 02H 

DE,4062H 

51A3H 

Z,4F8DH 

(407BH) r HL 

C f 4F99H 

51A3H 

AF 

NZ,4FCAH 

AF 

4F8DH 
HL f 400FH 
(4316H),HL 
A,0C3H 
(4315H) ,A 
HL,407AH 
B,0BH 



Max. no. trap addr to input 

Address of trap table 

Input a hex. value (1st address) 

Jump if illegal char, detected 

Save new PC (continue address) 

Jump if no comma after 1st address 
Get a hex. value (2nd address) 
Preserve status 
Call routine to update trap 
table addr. if legit, value 
Restore status 1st addr read 
Loop till 2 addr or car. ret found 

Vector address to load DEBUG 

put in nucleus 

OP code for JUMP instruction 

put in nucleus 

Addr of context starting with SP 

No. of reg. context values to transfer 



register values from context area to current stack. 



LD 

DEC 

LD 

DEC 

PUSH 

DJNZ 



D r (HL) 

HL 

E,(HL) 

HL 

DE 

4FA9H 



Fetch MSB of saved value 

Skip back to LSB 

Fetch LSB of saved register value 

Skip to next register value 

Save value on current stack 

Loop till all values on stack 



Restore Register Context 



POP 

POP 

POP 

POP 

EX 

EXX 

POP 

POP 

POP 

POP 

EX 

EXX 

POP 

POP 



AF 
BC 
DE 
HL 
AF / AF' 

AF 
BC 
DE 
HL 
AF,AF' 

IX 

IY 



Restore AF main register 
Restore BC main register 
Restore DE main register 
Restore HL main register 
Switch to alternate AF register 
Switch to alternate register set 
Restore AF alternate register 
Restore BC alternate register 
Restore DE alternate register 
Restore HL alternate register 
Switch to main AF register 
Switch to main register 
Restore IX 
and IY 



Listing Continued . 
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. . . Continued Listing 




4FC0 El 


POP 


HL 


4PC1 F9 


ID 


SP,HL 


4PC2 2A7B40 


ID 


HL, (407BH) 


4PC5 E5 


PUSH 


HL 


4PC6 2A6B40 


ID 


HL, (406BH) 


4FC9 C9 
* 


RET 




* Stuff trap inst. 


at addr. in 


* addr. of 
* 


contents 


at list add 


4FCA IE 


ID 


A,(HL) 


4PCB 12 


ID 


(DE) ,A 


4PCC IB 


DEC 


DE 


4PCD 3EF7 


ID 


A,0F7H 


4PCF 77 


ID 


(HL),A 


4FD0 BE 


CP 


(HL) 


4FD1 C22F4E 


JP 


NZ,4E2FH 


4FD4 7C 


ID 


A,H 


4FD5 12 


ID 


(DE) ,A 


4FD6 IB 


DEC 


DE 


4FF7 7D 


ID 


A,L 


4FD8 12 


ID 


(DE) ,A 


4FD9 IB 


DEC 


DE 


4FDA C9 


RET 





and stack pointer at trap time 
Update SP to value at time of trap 
Resumption address to HL 
So it can be copied to stack 
Restore HL main register set 
Return to inst. where trap occurred 



Get original conts. of trap location. 

and save in trap table list 

Back-up to next entry in trap list 

Load a trap inst. RST 30 

Save at addr. in HL, then 

Make sure store worked 

Jump if store inst. failed 

MSB of trap addr. 

To trap table 

Backspace trap table addr. 

LSB of trap addr. 

To trap table 

Back-up to 1st byte of next entry 

Return to caller 



8.9 «U' Command 

The 'U' command indirectly enables interrupts, allowing clock-driven functions 
to execute. As soon as any key is struck, the 'U' command exits to the main 
DEBUG loop. Following is the code used for this command: 



Figure 8.21 SYS5 Code From 4E9E to 43A6 



* 
* 

* 


U Command. Dynamic 


4E9E CD2B00 


CALL 


002BH 


4EA1 B7 


OR 


A 


4EA2 C0 


RET 


NZ 


4EA3 CDCF4E 


CALL 


4ECFH 


4EA6 18F6 


JR 


4E9EH 



Scan keyboard 

Set flags for active key test 

Ret to 4E4B if any key active 

Update display 

Loop till any key struck 
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9.0 SYS6/SYS 

SYS6 is the overlay module containing code for the bulk of the TRSDOS 
commands. The following commands are processed by SYS6: 

APPEND ATTRIB AUTO CLOCK COPY 
DATE DEVICE DIR DUMP FREE 
KILL LIB LIST LOAD PRINT 
PROT RENAME TIME VERIFY 

SYS6 is different from the other overlay modules in several repects. First, it is 
called only from SYS1 when one of the commands listed above is detected. 

Second, SYS6 loads at 5200 rather than 4E00. This fact would prohibit SYS6 
from being called by a processor utility program such as BACKUP or FORMAT 
since they have the same load address. 

A third distinction of SYS6 is its direct references to subroutines in the 
underlying overlay. Since SYS6 is called by SYSl, it makes use of subroutines in 
SYS1 by direct CALL statements. Subroutines in SYS2 are also used. When they 
are needed, system calls (usually an OPEN) are made, causing SYS2 to be loaded 
into the overlay area. 

A fourth difference is that SYS6 expects the HL register to contain the 
beginning address of the remainder of the command string upon entry. Parsing of 
the command string parameters will be done by SYSl, SYS2 or SYS6 depending 
on the command. All of the parsing routines used will expect HL to contain the 
address of the string to be parsed. 

The final difference between SYS6 and its cousins regards the passing of 
parameters. All other overlays, except for SYS5, expect a parameter to be passed 
as part of the overlay request code which is left in the A register. Bits 4, 5, and 6 of 
the overlay request are reserved for parameter passing. S YS6 expects a parameter 
in the C register. This parameter is a value between 1 and 19 which corresponds to 
the command to be executed. 



TRSDOS 2.3 Decoded 163 



SYS6/SYS 



Structurally, SYS6 is quite simple. A small amount of code at the beginning 
interrogates the parameter by decrementing it and jumping to a fixed address 
when a zero is detected. The fixed address defines the beginning of the code for 
each of the command functions. If the value of the parameter exceeds 19, the 
message RESERVED COMMAND is displayed, and control returns to SYS1 via 
the nucleus call at 4030. The following code is used to test the parameter and 
branch to the command function: 



Figure 9.1 SYS6 Code From 5200 to 5257 



5200 


79 


LD 


A,C 


5201 


012D40 


LD 


BC,402DH 


5204 


C5 


PUSH 


BC 


5205 


3D 


DEC 


A 


5206 


CA0057 


JP 


Z,5700H 


5209 


3D 


DEC 


A 


520A 


CA005B 


JP 


Z,5B00H 


520D 


3D 


DEC 


A 


520E 


CA8352 


JP 


Z,5283H 


5211 


3D 


DEC 


A 


5212 


CAC552 


JP 


Z,52C5H 


5215 


3D 


DEC 


A 


5216 


CA4F57 


JP 


Z,574FH 


5219 


3D 


DEC 


A 


521A 


CA9D52 


JP 


Z r 529DH 


521D 


3D 


DEC 


A 


521E 


CA1D53 


JP 


Z,531DH 


5221 


3D 


DEC 


A 


5222 


CA6F5C 


JP 


Z,5C6FH 


5225 


3D 


DEC 


A 


5226 


CAD7557 


JP 


Z,57D7H 


5229 


3D 


DEC 


A 


522A 


CA205E 


JP 


Z,5E20H 


522D 


3D 


DEC 


A 


522E 


CA1459 


JP 


Z,5914H 


5231 


3D 


DEC 


A 


5232 


CA3A53 


JP 


Z,533AH 


5235 


3D 


DEC 


A 


5236 


CA2C59 


JP 


Z,592CH 


5239 


3D 


DEC 


A 


523A 


CA9459 


JP 


Z,5994H 


523D 


3D 


DEC 


A 


523E 


CAAC59 


JP 


Z,59ACH 


5241 


3D 


DEC 


A 


5242 


CA6A53 


JP 


Z, 53 6 AH 


5245 


3D 


DEC 


A 


5246 


CA9C5F 


JP 


Z f 5F9CH 


5249 


3D 


DEC 


A 


524A 


CAB152 


JP 


Z,52B1H 


524D 


3D 


DEC 


A 


524E 
* 


CA0455 


JP 


Z r 5504H 



Get command index computed by SYS1 

Put a return address of 402D 

Onto the stack 

Test if command index = 1 

Jump if APPEND command 

Test if command index = 2 

Jump if ATTRIB command 

Test if command index = 3 

Jump if AUTO command 

Test if command index = 4 

Jump if CLOCK command 

Test of command index = 5 

Jump if COPY command 

Test if command index = 6 

Jump if DATE command 

Test if command index = 7 

Jump if DEVICE command 

Test if command index = 8 

Jump if DIR command 

Test if command index = 9 

Jump if DUMP command 

Test if command index = 10 

Jump if FREE command 

Test if command index = 11 

Jump if KILL command 

Test if command index = 12 

Jump if LIB command 

Test if command index = 13 

Jump if LIST command 

Test if command index = 14 

Jump if LOAD command 

Test if command index = 15 

Jump if PRINT command 

Test if command index = 16 

Jump if PROT command 

Test if command index = 17 

Jump if RENAME command 

Test if command index = 18 

Jump if TIME command 

Test if command index = 19 

Jump if VERIFY command 

Listing Continued . . 
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. . . Continued Listing 



* 
* 



5251 215A52 
5254 CD6744 
5257 C33040 



Command Index Out of Range 

LD HL,525AH Addr of RESERVED COMMAND message 
CALL 4467H Display message, then 
JP 4030H Recall SYSl , option 2 



All command functions return control to SYSl through a nucleus call to 4020 
or 4030. In some error cases, control will pass to SYS4 before final control is 
returned to SYSl. 

9.1 APPEND Command 

The APPEND command is an undocumented TRSDOS feature. At least, my 
TRSDOS manual doesn't mention it. The APPEND command combines two files. 
Its parameters are two file names. The APPEND command skips to the end of file 
of the second file and copies the first file onto the second file. The APPEND 
command is called using the following command: 

APPEND Filenamel Filename2 

Code for the APPEND function consists of two sections. The first begins at 
5700 and ends at 574C. The second begins at 57B6 and ends at 57D5. 

The second section is entered directly from the first section by a direct jump. 
The second section determines when processing is complete and jumps into the 
tail end of the COPY copy to close the files and return control to SYSl. 

There is no explanation for breaking APPEND into two sections. It may have 
been added as an afterthought. In that case, the code would have had to occupy 
whatever space was available. 

Section one parses the command by calling SYSl to copy the file names into 
local DCB areas at 5551 and 5571 (herein referred to as file one and file two, 
respectively). SYSl will check the file names for illegal characters and return a 
non-zero status if one is found. If an error is encountered, the appropriate error 
message is displayed, and the operation is aborted. 

Following the calls to SYSl to copy the file names to the DCB's, the files are 
OPEN'ed. Before the files were OPEN'ed, the names should have been compared 
to insure they were not the same, or at least on different drives. 

After the files have been OPEN'ed, a nucleus subroutine at 4448 is called to 
skip to end of file on file two. When end of file has been reached on file two, control 
passes to Section Two. Following is the code for Section One: 



Figure 9.2 SYS6 Code From 5700 to 574C 



* 
* 

* 

5700 
5703 



APPEND command processing 

115155 LD DE,555lH Address of local DCB area 
CD1C44 CALL 441CH Copy/edit file into DCB 

(SYSl, code 4) 

Listing Continued . 
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5706 


C23A55 


JP 


NZ r 553AH 


5709 


1A 


LD 


A, (DE) 


570A 


FE2A 


CP 


2AH 


570C 


CA3A55 


JP 


Z,553AH 


570F 


117155 


LD 


DE,5571H 


5712 


CD1C44 


CALL 


441 CH 


5715 


C23A55 


JP 


NZ r 553AH 


5718 


1A 


LD 


A, (DE) 


5719 


FE2A 


CP 


2AH 


571B 


CA3A55 


JP 


Z,553AH 


571E 


0600 


LD 


B r 00H 


5720 


210056 


LD 


HL,5600H 


5723 


CD2444 


CALL 


4424H 


5726 


C24C55 


JP 


NZ,554CH 


5729 


0600 


LD 


B,00H 


572B 


115155 


LD 


DE,5551H 


572E 


21006F 


LD 


HL,6F00H 


5731 


CD2444 


CALL 


4424H 


5734 


C24C55 


JP 


NZ,554CH 


5737 


117155 


LD 


DE,5571H 


573A 


CD4 844 


CALL 


4448H 


573D 


00 


NOP 




573E 


00 


NOP 




573F 


00 


NOP 




5740 


00 


NOP 




5741 


00 


NOP 




5742 


00 


NOP 




5743 


00 


NOP 




5744 


00 


NOP 




5745 


00 


NOP 




5746 


00 


NOP 




5747 


00 


NOP 




5748 


00 


NOP 




5749 


00 


NOP 




574A 


00 


NOP 




574B 


00 


NOP 




574C 


C3B657 


JP 


57B6H 



Display FILE SPEC. REQUIRED 

(error if no file name) 

Fetch 1st character of file name 

Test for reference to special file 

Display FILE SPEC REQUIRED 

(special file reference) 

Address of 2nd local DCB area 

Copy 2nd file name to DCB area 

Display FILE SPEC REQUIRED 

(error in 2nd file name) 

Get first char of 2nd file name 

Test for reference to special file 

Display FILE SPEC REQUIRED 

(special file reference) 

Specify physical I/O 

Sector buffer addr for 2nd file 

OPEN 2nd file 

Jump if any error during OPEN 

Specify physical I/O 

DCB address of 1st file 

Sector buffer addr for first file 

OPEN second file 

Go if error while OPENing 2nd file 

DCB address for 2nd file 

Skip to end of file on 2nd file 



Copy file 1 onto end of file 2 



Section Two reads file one, one character at a time, writing each character onto 
file two. The code for this operation is very brief. It terminates when end-of-file is 
reached on file one, or any other error condition is detected in file one or file two. 

After end-of-file is reached on file one, both files are CLOSE'd, and control 
returns to SYSl. Following is the code for Section Two: 
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Figure 9.3 SYS6 Code From 57B6 to 57D5 



Continuation of APPEND Processing 



57B6 115155 LD DE,555lH 

57B9 CD1300 CALL 0013H 

57BC 2807 JR Z,57C5H 

57BE FE1C CP 1CH 

57C0 28DF JR Z r 57AlH 

57C2 C34C55 JP 554CH 

57C5 47 LD B,A 

57C6 CD1555 CALL 5515H 

57C9 20D6 JR NZ,57AlH 

57CB 78 LD A,B 

57CC 117155 LD DE,5571H 

57CF CD1B00 CALL 001BH 

57D2 C24C55 JP NZ,554CH 

57D5 18DF JR 57B6H 



DCB address for first file 



Read a character from 1st file 

Jump if no error condition 

An error occurred. Was it end of file 

Jump if yes (EOF or source file 

If not, Call SYS4 to process error 

Preserve character just read 

Test for BREAK/SHIFT@ 

If BREAK key active 

terminate operation 

Restore character read 

DCB addr of 2nd file (dest. file) 

Write char from source to dest, file 

Jump if error during write operation 

Else loop till EOF on source file 



9.2 ATTRIB Command 

The ATTRIB command is used to assign or modify file password and protection 
levels. The format of the command is: 

ATTRIB filename (options) 

where options can be one of the following: 

I Assign the invisible attribute to the 

file. This means the file name wi] _ not 
be displayed during DIR commands. In 
order to view the file name, I option 
must be used with the DIR command. 



ACC = password 
UPD = password 
PROT = level 



Assign new access password. 

Assign new update password. 

Assign an access protection level, 
assignable levels are KILL, RENAME, 
WRITE, READ, and EXEC. 



The code for ATTRIB processing begins at 5B00 and ends at 5C3F. A local 
DCB at 5551 is used to OPEN the file. 
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The code begins with a call to SYSl with an option code of 40. This copies the 
file name from the command line buffer to the local DCB area. Upon return from 
SYSl, the file is OPEN'ed. Opening the file serves a dual purpose in that it causes 
S YS2 to be loaded into the system overlay area as well as initializing the DCB. This 
fact is important since subroutines in SYS2 may be called to compute the encode 
of ACCESS and UPDATE passwords. 

After opening the file, the access permission flags in the DCB are isolated and 
compared to zero. If non-zero, the file is being accessed without the proper 
permission, and an error message is generated via a call to SYS4. 

Assuming no access violation occurred, two local variables at 5C05 and 5COD 
are zeroed. These locations will be modified by subsequent processing to contain 
the file visibility flag and the access permission flags. 

Next, the command line is scanned until a '(' is detected. The following code is 
used for these operations: 



Figure 9.4 SYS6 Code From 5B00 to 5B.38 



* 
* 




Attribute Command 


5B00 


115155 


LD 


DE,5551H 


5B03 


CD1C44 


CALL 


441CH 


5B06 


C23A55 


JP 


NZ r 553AH 


5B09 


1A 


LD 


A, (DE) 


5B0A 


FE2A 


CP 


2AH 


5B0C 


CA3A55 


JP 


Z,553AH 


5B0F 


E5 


PUSH 


HL 


5B10 


0600 


LD 


B r 00H 


5B12 


21004D 


LD 


HL,4D00H 


5B15 


CD2444 


CALL 


4424H 


5B18 


C24C55 


JP 


NZ,554CH 


5B1B 


El 


POP 


HL 


5B1C 


3A5255 


LD 


A, (5552H) 


5B1F 


E607 


AND 


07 H 


5B21 


3E37 


LD 


A,37H 


5B23 


C24C55 


JP 


NZ,554CH 


5B26 


AF 


XOR 


A 


5B27 


32055C 


LD 


(5C05H) , A 


5B2A 


320D5C 


LD 


(5C0DH) r A 


5B2D 


7E 


LD 


A, (HL) 


5B2E 


FE28 


CP 


28H 


5B30 


2808 


JR 


Z,5B3AH 


5B32 


FE20 


CP 


20H 


5B34 


C26B52 


JP 


NZ,526BH 


5B37 


23 


INC 


HL 


5B38 


18F3 


JR 


5B2DH 



Local DCB address 

SYSl, code 4. File name to DCB 

Jump if error detected in file name 

is first character 

of file an * 

If so, display FILE SPEC. REQUIRED 

Save addr of parameters 

Specify physical I/O 

Sector buffer address 

OPEN file (load SYS2 at 4E00) 

Jump if file does not exist 

Restore command string address 

Fetch permission flags for file 

Isolate access flags 

Signal restricted access 

Invisible file, occupied entry 

Jump if any permission required 

Load a zero and 

clear values to be combined with 

access and invisibility attributes 

Get next char from command string 

Test for ( 

Jump if (. Start of parameters 

Not (. Test for blank 

Not ( or , so ignore command 

Blank. Skip to next character 

Loop till ( or end of command found 



168 Chapter 9 



ATTRIB Command 



When a '(' has been located, the beginning of the options field has been found. The 
character following the '(' is compared to an: T (INVISIBLE), 'A' (ACCESS), 'U' 
(UPDATE) or'P' (PROTECT). When a match is found with one of these characters, 
control passes to a section of code which processes the parameter associated with 
the option. The following code is used to determine which of the options is present: 



Figure 9.5 SYS6 Code From 5B3A to 5B4A 



5B3A 23 


INC 


HL 


5B3B 7E 


LD 


A, (HL) 


5B3C FE49 


CP 


49H 


5B3E 2857 


JR 


Z,5B97H 


5B40 FE41 


CP 


41H 


5B42 2863 


JR 


Z,5BA7H 


5B44 FE55 


CP 


55H 


5B46 2874 


JR 


Z,5BBCH 


5B48 FE50 


CP 


50H 


5B4A C2395C 


JP 


NZ,5C39H 



Bump past ( 

Get next char of parameter field 

Test for I 

Jump if INVISIBLE specified 

Not I, test for ACC 

Jump if A found. Go test for CC 

Not I or A. Test for UPD 

Jump if U, Go test for PD 

Not I, A, or U. Test for PROT 

None of above. Go display 

ATTRIBUTE error message 



If the PROT option has been selected, further processing is required to evaluate 
the keyword following the equals. The code below is used to process the PROT 
option. 



Figure 9.6 SYS6 Code From 5B4D to 5B94 



5B4D CDD15B 
5B50 CA395C 

5B53 E5 
5B54 0607 
5B56 ED5B5551 
5B5A 21615C 
5B5D 7E 
5B5E 23 
5B5F BB 
5B60 CC695B 
5B63 23 
5B64 10F7 
5B66 C3395C 

5B69 7E 
5B6A BA 
5B6B C0 
5B6C Fl 

5B6D 78 



CALL 5BD1H 

JP Z,5C39H 

PUSH HL 

LD B,07H 

LD DE r (5155H) 

LD HL,5C61H 

LD A, (HL) 

INC HL 

CP E 

CALL Z,5B69H 

INC HL 

DJNZ 5B5DH 

JP 5C39H 

Test PROT parameters 



LD 
CP 
RET 
POP 

LD 



A, (HL) 
D 
NZ 
AF 

A,B 



Parse PROT command parameter 

Error if not (= KILL/RENAME/WRITE 

WRITE/READ or PROT 

Save command string address 

Number of entries to compare 

Get 1st 2 chars of PROT parameter 

List of possible parameters 

Get one character from list 
Bump to next char in list 
Compare char of parameter to list 
If equal, try matching others 
else bump to next option in list 
Loop till all options compared 
Error, no match w/PROT options 



Fetch 2nd char from option test 
Compare with 2nd char of PROT option 
Exit if not equal. Try next option 
Clear ret addr from stack. Will 
ret to 5BF7/5B3A or 5C39 
No. of options remaining in list 

Listing Continued . . . 
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5B6E 


3D 


DEC 


A 


5B6F 


FE05 


CP 


05H 


5B71 


200B 


JR 


NZ,5B7EH 


5B73 


3A5751 


LD 


A, (5157H) 


5B76 


FE4E 


CP 


4 EH 


5B78 


3E05 


LD 


A,05H 


5B7A 


2002 


JR 


NZ f 5B7EH 


5B7C 


3E02 


LD 


A,02H 


5B7E 


320B5C 


LD 


(5C0BH) ,A 


5B81 


El 


POP 


HL 


5B82 


0601 


LD 


B,01H 


5B84 


3A055C 


LD 


A, (5C05H) 


5B87 


B0 


OR 


B 


5B88 


32055C 


LD 


(5C05H),A 


5B8B 


7E 


LD 


A, (HL) 


5B8C 


FE29 


CP 


29H 


5B8E 


2867 


JR 


Z,5BF7H 


5B90 


FE2C 


CP 


2CH 


5B92 


28A6 


JR 


Z,5B3AH 


5B94 


C3395C 


JP 


5C39H 



Decrement for matching option 

Are we on RE (READ or RENAME) 

Jump if not RE 

Fetch 3rd char of PROT parameter. 

Test for RENAME 

Test for N (RENAME not READ 

Access flags for READ 

Jump if READ option 

Access flags for RENAME 

Save access permission for PROT 

Restore command string address 

KILL/RENAME/READ/WRITE/EXECUTE access 

Byte of dir entry w/access field 

Merge with new access permission 

Save updated byte to update dir 

Get next char from command string 

Test for ) 

Jump if ) found (end of command) 

No left paren. Test for comma 

Go if , found (more parameters follow) 

else error in attribute spec. 



A subroutine common to all of the options processing is shown below: 



Figure 9.7 SYS6 Code From 5BD1 to 5BF6 



* 
* 
* 

5BD1 
5BD2 
5BD3 
5BD5 
5BD6 
5BD8 
5BD9 
5BDB 
5BDC 
5BDE 
5BE0 
5BE1 
5BE4 
5BE6 
5BE7 
5BE8 
5BEA 
5BEB 
5BEC 
5BEE 
5BEF 
5BF0 



Parse PROT Parameters 



23 

7E 

FE0D 

C8 

FE29 

C8 

FE2C 

C8 

FE3D 

20F1 

23 

115551 

0608 

D5 

C5 

3E20 

12 

13 

10FC 

CI 

Dl 

CD8150 



INC 

LD 

CP 

RET 

CP 

RET 

CP 

RET 

CP 

JR 

INC 

LD 

LD 

PUSH 

PUSH 

LD 

LD 

INC 

DJNZ 

POP 

POP 

CALL 



HL 

A, (HL) 

0DH 

Z 

29H 

Z 

2CH 

Z 

3DH 

NZ,5BD1H 

HL 

DE,5155H 

B,08H 

DE 

BC 

A,20H 

(DE),A 

DE 

5BEAH 

BC 

DE 

5081H 



Bump to next addr in command 

Fetch next character 

Test for end of line 

Exit if end of line 

Test for closing paren 

Exit if ) 

Test for comma 

Exit if comma 
Test for = 
Not = , loop 

Bump to 1st char following = 
Address of buffer area in SYS2 
No. of buffer bytes to initialize 
Save beginning buffer address 
Save max no. of bytes in buffer 
Initialization value 

Initialize a buffer byte 

Bump to next buffer byte 

Loop till buffer initialized 
Restore buffer size value in B 
Restore beginning buffer address 
Copy password to buffer address 
in DE. Use subroutine in SYS2 

Listing Continued . . 
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5BF3 2B 


DEC 


HL 


5BF4 F601 


OR 


01H 


5BF6 C9 


RET 





Back-up cmd $ pointer to terminator 
Signal password found 
and return to caller 



Following is the code for the T option: 



Figure 9.8 


SYS6 Code From 5B97 to 5BA5 


* 




ATTRIB - I Pr 


5B97 CDD15B 


CALL 


5BD1H 


5B9A C2395C 


JP 


NZ r 5C39H 


5B9D 3A0D5C 


LD 


A, (5C0DH) 


5BA0 F608 


OR 


08H 


5BA2 320D5C 


LD 


(5C0DH) ,A 


5BA5 18DD 


JR 


5B84H 



Parse rest of command 
Jump if command string contains 
more than ) . Get access permission 
from dir entry. Set invisible flag 
Save updated access permission flags 
Go test for closing ) and write 
updated directory entry 



Following is the code for the ACC option: 



Figure 9.9 SYS6 Code From 5BA7 to 5BBA 



* 
* 




ATTRIB - ACC Pr' 


5BA7 


CDD15B 


CALL 


5BD1H 


5 BAA 


CA395C 


JP 


Z,5C39H 


5 BAD 


E5 


PUSH 


HL 


5BAE 


115551 


LD 


DE,5155H 


5BB1 


CDD150 


CALL 


50D1H 


5BB4 


226A51 


LD 


(516AH) ,HL 


5BB7 


El 


POP 


HL 


5BB8 


0602 


LD 


B, 02H 


5BBA 


18C8 


JR 


5B84H 



Parse rest of command 
Error if nothing follows A 
Save current cmd string address 
Address of ACCESS password 
Get encode of ACCESS password 
Save encode 

Restore command string address 
RENAME/WRITE/READ/EXECUTE access 
Go update access permission 
field in directory 



Following is the code for the UPD option: 



Figure 9.10 SYS6 Code From 5BBC to 5BCF 



* 
* 
* 



ATTRIB - UPD Processing 



5 BBC CDD15B CALL 5BD1H 
5BBF CA395C JP Z,5C39H 
5BC2 E5 PUSH HL 



Parse rest of command 
Jump if nothing follows U 
Save command string address 

Listing Continued . . . 
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. . . Continued Listing 

5BC3 115551 LD 

5BC6 CDD150 CALL 

5BC9 226851 LD 

5BCC El POP 

5BCD 0604 LD 

5BCP 18B3 JR 



DE,5155H 
50D1H 

(5168H) f HL 

HL 

B r 04H 

5B84H 



Address of buffer UPDATE password 
Get encode of UPDATE password 
(use subroutine in SYS2) 
Save encode 

Restore command string address 
Specify WRITE/READ/EXECUTE access 
Go update access permission 
in directory sector 



Notice that all of the option processing routines return to 5B84, except for the 
PROT option which falls into this code. At this point, the access flags are 
generated and saved at 5C05. Next, the command line is scanned for a ')' or a 
comma. If a comma is found, control returns to 5B3A, where the next option is 
processed. 

When a ')' is found, control is passed to 5BF7, where the directory sector for the 
file is read, updated and rewritten. Following is the code for those operations. 



Figure 9.11 SYS6 Code From 5BF7 to 5C36 



5BF7 
5BFB 
5BFE 
5C01 
5C02 
5C04 
5C06 
5C08 
5C0A 
5C0C 
5C0E 
5C0F 
5C10 
5C12 
5C13 
5C15 
5C17 
5C1A 
5C1B 
5C1E 
5C1F 
5C20 
5C21 
5C22 
5C23 



ED4B5755 

CDC14A 

C24C55 

7E 

E6F8 

1600 

CB42 

2802 

F600 

F600 

77 

7D 

C610 

6F 

CB52 

280A 

3A6851 

77 

3A6951 

23 

77 

2B 

23 

23 

CB4A 



5C25 2809 
5C27 3A6A51 
5C2A 77 
5C2B 3A6B51 
5C2E 23 
5C2F 77 



LD BC, (5557H) 

CALL 4AC1H 

JP NZ,554CH 

LD A, (HL) 

AND 0F8H 

LD D f 00H 

BIT 00H,D 

JR Z,5C0CH 

OR 00H 

OR 00H 

LD (HL) , A 

LD A,L 

ADD A,10H 

LD L,A 

BIT 02H,D 

JR Z,5C21H 

LD A, (5168H) 

LD (HL) ,A 

LD A, (5169H) 

INC HL 

LD (HL) , A 

DEC HL 

INC HL 

INC HL 

BIT 01H,D 

JR Z f 5C30H 

LD A f (516AH) 

LD (HL) , A 

LD A, (516BH) 

INC HL 

LD (HL) ,A 



Get dir sector pointer from DCB 

Read dir sector into buffer 

Jump if error during read 

Fetch 1st byte of dir entry 

Clear access permissions 

Load new access permission 

Test if all permission granted 

Jump if not 

Combine access permission bits 

With file visability attribute 

Save updated access in dir entry 

Skip to UPDATE access password 

by adding 10 to current dir address 

for address of UPDATE password 

Test if UPDATE password specified 

Jump if not 

Yes. Get new UPDATE password encode 

and save in directory 

Fetch 2nd byte of encode 

Bump to 2nd byte of password 

Save 2nd byte of UPDATE encode 

Back-up for following increments 

Bump to starting position of access 

password in directory 

Test for KILL/ RENAME/READ 

WRITE/EXECUTE access 

Jump if all options allowed 

Else get UPDATE password encode (LSB) 

and copy to directory 

Fetch UPDATE password encode (MSB) 

Bump to 2nd byte of password 

Store MSB encode in directory 

Listing Continued . . . 



172 Chapter 9 



CLOCK Command 



. . . Continued Listing 

5C30 CDD64A CALL 4AD6H 

5C33 C24C55 JP NZ,554CH 

5C36 C32D40 JP 402DH 



Write updated directory sector 
Jump if any error during WRITE 
Done. Recall SYSl, wait for command 



9.3 AUTO Command 

The AUTO command copies the next 20 characters from the command line into 
the AUTO procedure area of the GAT sector (track 11, sector 1). The method used 
is quite simple. 

First, the GAT sector is read into a buffer at 4D00 using a subroutine in the 
nucleus. Next, 20 characters are copied from the current position in the command 
line buffer to 4 DEO in the GAT sector buffer. Finally, the GAT sector is rewritten 
using another nucleus subroutine. All disk operations are restricted to drive 0. 

Following is the code for the AUTO command: 



Figure 9.12 SYS6 Code From 5282 to 529C 



* 
* 
* 

5283 0E00 
5285 CDF04A 
5288 C24C55 
528B 164D 
528B 1EE0 
528F 012000 
5292 EDB0 

5294 0E00 
5296 CD034B 
5299 C24C55 
529C C9 



AUTO Command Processing 



LD 

CALL 

JP 

LD 

LD 

LD 

LDIR 

LD 

CALL 
JP 
RET 



C,00H 

4AF0H 

NZ r 554CH 

D r 4DH 

E f 0E0H 

BC,0020H 



C,00H 
4B03H 
NZ f 554CH 



Specify drive 

Get track 11, sector into 4D00 

Jump if error while reading GAT 

Form addr of AUTO procedure in 

GAT sector buffer in DE (4DE0) 

No. of chars to put in AUTO area 

Copy 32 chars following AUTO command 

to procedure file name field 

Select drive 

Write updated GAT sector 

Go if error during write 

Return to SYS1 



9.4 CLOCK Command 

Code for the CLOCK command begins at 52C5. It starts by calling a subroutine 
in SYS1 to process the ON/OFF portion of the CLOCK command. If the Word 
OFF is detected, the status register is set to zero before returning. 

Upon return from SYSl, the address of the clock maintenance routine in the 
nucleus is loaded into the DE register. This is necessary if the command is turning 
the clock on. The A register is loaded with a 6. This is the index (divided by 2) into 
the interrupt service routine address list for the clock maintenance routine. Next, 
depending on the status register returned from SYSl, control goes to 4410 or 
4413, where the clock address is added to, or deleted from the interrupt service 
routine list depending on the option selected. 
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Control will pass from the routine at 4410 and 4413 to SYS1 when they 
complete because 402D was pushed onto the stack when SYS1 was entered. 

Following is the code for the CLOCK command: 



Figure 9.13 Code from 52C5 to 52 DO 



* 

* 



52C5 CDA051 
52C8 11A94C 
52CB 3E06 

52CD CA1344 
52D0 C31044 



CLOCK Routine 

CALL 51A0H 
LD DE,4CA9H 
LD A,06H 

JP Z,4413H 
JP 4410H 



SYS1 ON/OFF parameter processor 
Clock maintenance routine address 
Index for clock routine in 
interrupt service list 
Remove addr from list, go to SYS1 
Add addr to list. Go to SYS1 



9.5 COPY Command 

The COPY command begins at address 574F. It starts with a call to SYS1, 

option 40 to copy the source file name to a DCB area at 5551. A second option 40 
call to SYSl is made to copy the destination file name to another DCB area at5571. 

The option 40 subroutine compares the file name being copied to the phrases TO, 
ON and OVER. If it matches any of them, the command line is rescanned under the 
assumption that a separator was detected. Obviously, this could be a false 
assumption. It means that file names of TO, ON and OVER cannot be used as 
destination files on a COPY command. 

After the source and destination file names have been copied to their DCB's, the 
source file is OPEN'ed, and the destination file is opened with an INIT call. Both 
files are opened for physical I/O, and they share a sector buffer at 5600. The 
following code is used for the operation described. 



Figure 9.14 SYS6 Code From 574 F to 577 A 



* 
* 



COPY Command Processing 

574F 115155 LD DE,5551H Address of local DCB area 

5752 CD1C44 CALL 441CH SYSl, code 4, copy/edit 1st file 

5755 C23A55 JP NZ,553AH Go if illegal chars in file name 

5758 117155 LD DE,5571H Address of 2nd local DCB area 

575B CD1C44 CALL 441CH SYSl, code 4, copy/edit 2nd file name 

575E C23A55 JP NZ,553AH Jump if illegal chars 2nd file name 

5761 0600 LD B,00H Set physical I/O for source file 

5763 115155 LD DE,5551H Address of source DCB 

5766 210056 LD HL,5600H Sector buffer address 

Listing Continued . . . 
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5769 CD2444 


CALL 


4424H 


576C C24C55 


JP 


NZ,554CH 


576F 0600 


LD 


B,00H 


5771 117155 


LD 


DE,5571H 


5774 210056 


LD 


HL,5600H 


5777 CD2044 


CALL 


4420H 


577A C24C55 


JP 


NZ,554CH 



OPEN source file 

Jump if any error during OPEN 

Set physical I/O for destination file 

Destination DCB address 

Share sector buf with source file 

INIT call for destination file 

Jump if error during INIT processing 



After the files have been opened, the copy operation commences. The source file 
is read, a sector at a time, and written to the destination file. Reading continues 
until an end of file, or record not found status is returned. If the reading terminates 
because of a record not found status, the last record accessed is copied from the 
source DCB to the destination DCB before closing the files. 

When the read terminates, both files are closed, and control returns to SYS1 via 
a call to the nucleus entry point at 402D. Following is the code used for these 
operations: 



Figure 9. 15 SYS6 Code From 5 77D to 5 7B3 



5790 117155 
5793 CD3944 



577D 115155 LD DE,5551H 

5780 CD3644 CALL 4436H 

5783 280B JR Z,5790H 

5785 FE1C CP 1CH 

5787 2818 JR Z,57A1H 

5789 FE1D CP 1DH 

578B 280E JR Z,579BH 

578D C34C55 JP 554CH 

LD DE,5571H 

CALL 4439H 

5796 28E5 JR Z f 577DH 

5798 C34C55 JP 554CH 

579B 2A5955 LD HL, (5559H) 

579E 227955 LD (5579H) , HL 

57A1 117155 LD DE f 557lH 

57A4 CD2844 CALL 4428H 

57A7 C24C55 JP NZ,554CH 

57AA 115155 LD DE r 555lH 

57AD CD2844 CALL 4428H 

57B0 C24C55 JP NZ,554CH 

57B3 C32D40 JP 402DH 



Address of source DCB 

Read sector from source file 

Jump if no error during read 

Test for EOF on source file 

Jump if EOF on source 

else test for record not found 

Jump if record not found 

Some other error. Call SYS4 

to display error message 

No error on source file. 

Load address of dest. DCB 

Write sector just read to 

destination file 

Go if no error during WRITE 

Loop till EOF on source file 

Record not found. Get record no. 

from source DCB, copy to dest. DCB 

Address of destination DCB 

CLOSE destination file 

Jump if any error during CLOSE 

Address of source DCB 

CLOSE source file 

Jump if error during CLOSE 

Return to SYS1 wait for next command 
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9.6 DATE Command 

The DATE command copies the date from the command list to the date buffer 
in the system area. Before the date can be moved, it must be converted from ASCII 
to binary. A subroutine at 52EA is called for this conversion. 

After the date has been converted, it is copied to the date buffer in the system 
area. The following code is used for procesing the DATE command. 



Figure 9. 16 SYS6 Code From 529 D to 52 BO 



* 
* 

* 






DATE Routine 


529D 


0E2F 


LD 


C,2FH 


529F 


CDEA52 


CALL 


52EAH 


52A2 


C2D352 


JP 


NZ,52D3H 


52A5 


21DC52 


LD 


HL,52DCH 


52A8 


114440 


LD 


DE,4044H 


52AB 


010300 


LD 


BC,0003H 


52AE 


EDB0 


LDIR 




52B0 


C9 


RET 





/ = Only valid terminating character 
Process date» Leave in 52DC-52DE 
Go if char not a number or / 
Start of 3 byte date buffer 
Address of date in system area 
Number of bytes to move 
Copy date from buffer to system area 
Ret to SYS1 to get next command 



The subroutine at 52EA converts a string of ASCII digits to binary and stores 
the results in a local buffer which begins at 52DE. Since this subroutine is called 
to process time and date strings, the separator (either a V or V) between values 
must be specified at the time the subroutine is called. 

One subroutine is called from 52EA to convert two digits from ASCII to binary. 
It begins at 52FF and immediately calls a subroutine at 5316 to return the hex 
value for the next character. This value is multiplied by 10, and the subroutine at 
53 16 is called again to fetch the next digit, which is added to the value computed 
for the first digit. This gives the decimal-binary equivalent of a two digit ASCII 
number. 

Control returns to the subroutine at 52EA with the binary value for the two 
digit number in the A register. Since only dates and times are expected to be 
processed, the A register has sufficient bit width to hold any valid numbers. 

The value returned is stored in a local buffer, and the character following the 
number is compared to the separator in the C register. If they match, the next two 
digit number is processed and saved. This procedure is repeated until three sets of 
two digit numbers have been converted. 
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If a non-numeric character or an illegal separator is detected, control returns to 
the caller with a non-zero status; otherwise, a zero status is returned. The following 
code is used for these operations: 



Figure 9.17 SYS6 Code From 52EA to 53 1C 



52EA 


11DE52 


LD 


DE,52DEH 


52ED 


0603 


LD 


B r 03H 


52EF 


D5 


PUSH 


DE 


52F0 


CDFF52 


CALL 


52FFH 


52F3 


Dl 


POP 


DE 


52F4 


C0 


RET 


NZ 


52F5 


12 


LD 


(DE),A 


52F6 


IB 


DEC 


DE 


52F7 


05 


DEC 


B 


52F8 


C8 


RET 


Z 


52F9 


7E 


LD 


A r (HL) 


52FA 


23 


INC 


HL 


52FB 


B9 


CP 


C 


52FC 


28F1 


JR 


Z,52EFH 


52FE 
* 

* 


C9 


RET 




* 

52FF 


CD1653 


CALL 


5316H 


5302 


3010 


JR 


NC r 5314H 


5304 


5F 


LD 


E,A 


5305 


07 


RLCA 




5306 


07 


RLCA 




5307 


83 


ADD 


A f E 


5308 


07 


RLCA 




5309 


5F 


LD 


E f A 


530A 


CD1653 


CALL 


5316H 


530D 


3005 


JR 


NC,5314H 


530F 


83 


ADD 


A,E 


5310 


5F 


LD 


E,A 


5311 


AF 


XOR 


A 


5312 


7B 


LD 


A,E 


5313 


C9 


RET 




5314 


B7 


OR 


A 


5315 
* 

* 


C9 


RET 




* 
5316 


7E 


LD 


A, (HL) 


5317 


23 


INC 


HL 


5318 


0630 


SUB 


30H 


531A 


FE0A 


CP 


0AH 


531C 


C9 


RET 





Ending addr of local 3 byte buffer 

Number of fields to process 

Save storage address 

Process next field. Must be 2 digits 

Restore buffer address 

Exit if error in field. 

Non-numeric encountered 

Save a date field 

Backup to next storage address 

Count one field processed 

Exit if all fields processed 

Get field separator from command 

Bump to 1st char of next field 

Compare separator to specified value 

Loop if legitimate separator 

Ret to caller if illegal separator 



Get next char from command string 

Jump if alpha character (error) 

Save value (will be added later) 

Value * 2 

Value * 4 

Value * 5 

Value * 10 

Save binary equivalent of digit 

Get next char from command string 

Jump if not numeric (error) 

Combine with value of previous 

Digit * 10 

Set status flag for no error 

Binary equivalent of decimal 

value in A-reg. 

Return to caller 

Signal error with non-zero status 

Ret. Alpha character encountered 



Fetch real char from command buffer 
Bump to next character 
Convert ASCII digit to binary 
Test for non-numeric character 
Ret w/CARRY if char greater than 9 
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9.7 DEVICE Command 

The DEVICE command displays the device mnemonics maintained in the 
system device table. The following code is used for this command: 



Figure 9. 18 SYS6 Code From 53 ID to 5337 



* 
* 
* 






DEVICE Routine 


531D 


21C043 


LD 


HL,43C0H E 


5320 


7E 


LD 


A, (HL) 


5321 


2C 


INC 


L 


5322 


B7 


OR 


A 


5323 


2812 


JR 


Z,5337H 


5325 


CD3300 


CALL 


0033H 


5328 


7E 


LD 


A, (HL) 


5329 


CD3300 


CALL 


0033H 


532C 


3E0D 


LD 


A,0DH 


532E 


CD3300 


CALL 


0033H 


5331 


7D 


LD 


A,L 


5332 


C603 


ADD 


A,03H 


5334 


6F 


LD 


L,A 


5335 


30E9 


JR 


NC,5320H 


5337 


C32D40 


JP 


402DH ! 



Device table address 

Get ASCII char of device type 

Bump to next char in device name 

Check for end of list 

Jump if end of device table, else 

display 1st char of device type 

Get 2nd char of device type 

Display it then 

follow with car, ret. to 

skip to next line 

LSB of device table address 

Add 3 to get next entry. 
Skip over driver address 
Reform addr of next entry in HL 
Test if absolute end of 
list reached (43CF) 
Return to SYS1 



9.8 DIR Command 

The DIR command is one of the longest commands in SYS6. The command has 
four options. They are: 

DIR 
DIR (I) 
DIR (S) 
DIR (A) 

The 'A,' T and 'S' options may be combined, as long as they are seperated by 
commas. A drive may also be specified. 

After testing for a drive parameter, SYSl (option 60) is called to parse the 
command for the 'I,' 'S' and 'A' options. SYSl will examine the balance of the DIR 
command. If any of the options are present, a non-zero value will be stored at the 
following address: 

A - 5D9B/C 
I - 5D0B/C 
S - 5CFD/E 
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The contents of these addresses are initialized to zero at the start of DIR 
processing. Later they will be tested (acting as program switches), and branches 

will be made (if they are non-zero) to sections of code containing the instructions 
required to produce the display for the option selected. 

The code for DIR begins at 5C6F. It starts by clearing the aforementioned 
program switches, displaying the DIR title and displaying the diskette name and 
creation date. The following code is used for these operations: 



Figure 9.19 SYS6 Code From 5C6F to 5CC4 



* 
* 

it 




DIR 


command pr< 


5C6F 


010000 


LD 


BC,0000H 


5C72 


ED439B5D 


LD 


(5D9BH) ,BC 


5C76 


ED43 0B5D 


LD 


(5D0BH) ,BC 


5C7A 


ED43FD5C 


LD 


(5CFDH) ,BC 


5C7E 


0E00 


LD 


C,00H 


5C80 


7E 


LD 


A,(HL) 


5C81 


FE3A 


CP 


3AH 


5C83 


2006 


JR 


NZ,5C8BH 


5C85 


23 


INC 


HL 


5C86 


7E 


LD 


A, (HL) 


5C87 


23 


INC 


HL 


5C88 


D630 


SUB 


30H 


5C8A 


4F 


LD 


C,A 


5C8B 


C5 


PUSH 


BC 


5C8C 


79 


LD 


A,C 


5C8D 


C630 


ADD 


A,30H 


5C8F 


329E5E 


LD 


(5E9EH) ,A 


5C92 


116A5E 


LD 


DE,5E6AH 


5C95 


CD7644 


CALL 


4476H 


5C98 


21835E 


LD 


HL f 5E83H 


5C9B 


CD6744 


CALL 


4467H 


5C9E 


CI 


POP 


BC 


5C9F 


C5 


PUSH 


BC 


5CA0 


CD554B 


CALL 


4B55H 


5CA3 


1E00 


LD 


E,00H 


5CA5 


210042 


LD 


HL,4200H 


5CA8 


CD354B 


CALL 


4B35H 


5 CAB 


C24C55 


JP 


NZ,554CH 


5CAE 


21D042 


LD 


HL r 42D0H 


5CB1 


11A15E 


LD 


DE,5EAlH 


5CB4 


010800 


LD 


BC,0008H 


5CB7 


EDB0 


LDIR 




5CB9 


11AD5E 


LD 


DE,5EADH 


5CBC 


010800 


LD 


BC,0008H 


5CBF 


EDB0 


LDIR 




5CC1 


21A15E 


LD 


HL f 5EAlH 


5CC4 


CD6744 


CALL 


4467H 



Load 16-Bit zero value to clear 

A option flag (set not selected) 

I option flag (set not selected) 

S option flag (set not selected) 

Default drive number is 

Get next char from command list 

Compare with a : 

Jump if no drive specified 

Drive specified. Bump cmd list addr 

to drive. Get ASCII drive no. 

Bump to character beyond drive no. 

Convert drive number to binary 

and save in C for nucleus I/O calls 

Save drive for later use 

Refetch it 

and convert it to ASCII 

Save drive no. in title message 

Address of DIR option I, S, A 

Call SYS1 to parse rest of command 

Address of DIR title line 

Display title line 

Reload drive number in C 

And preserve BC 

Get dir track number in D register 

Select sector 

Use system buffer at 4200 

Read track 11, sector 

Jump if error during read 

Addr of disk name in GAT sec buf 

Addr of disk name in 3rd title line 

Number of bytes in diskette name 

Move name from GAT buffer to 3rd line 

Addr of date in 3rd title line 

Number of bytes in date 

Move date to 3rd title line 

Address of 3rd title line 

Display 3rd title line 
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Next, all eight directory sectors are read and stored in a buffer starting at 6100. 
The code used for this is shown below: 



Figure 9.20 SYS6 Code From 5CC7 to 5 CEO 



Restore drive no. to C 

Setup for reading 1st dir sector 

Sector buffer address 

Read sector of dir file into 4200 

Jump if error during read 

Force HL to 4200. Sector buf origin 

Save sector number/drive number 

Number of bytes to move (256) 

Copy buffer at 4200 to 6100 

Restore sector/drive number 

Bump sector number 

Move sector number for comparison 

Did we read last directory sector 
Jump if not. Read next sector 



After all directory sectors have been read, the display loop is entered. This loop 
consists of three identifiable sections. 

The first begins at 5CE5 and ends at 5DOF. This section of code determines if 
the current directory entry is eligible for display. The code for this section is shown 
below: 



5CC7 CI 


POP 


BC 


5CC8 0600 


LD 


B,00H 


5CCA 110061 


LD 


DE,6100H 


5CCD CDC14A 


CALL 


4AC1H 


5CD0 C24C55 


JP 


NZ,554CH 


5CD3 2E00 


LD 


L,00H 


5CD5 C5 


PUSH 


BC 


5CD6 010001 


LD 


BC r 0100H 


5CD9 EDB0 


LDIR 




5CDB CI 


POP 


BC 


5CDC 04 


INC 


B 


5CDD 78 


LD 


A,B 


5CDE FE08 


CP 


08H 


5CE0 20EB 


JR 


NZ,5CCDH 



5CF8 CB77 
5CFA 280A 
5CFC 110000 
5CFF 7A 
5D00 B3 
5D01 CABF5D 
5D04 180C 
5D06 CB5F 
5D08 2808 



Figure 9.21 SYS6 Code From 5CE5 to 5D0F 

5CE5 3E0C LD A,0CH 

5CE7 32AB5D LD (5DABH) ,A 

5CEA 0603 LD B, 03H 

5CEC 7E LD A( (HL) 

5CED E5 PUSH HL 

5CEE CB67 BIT 04H,A 

5CF0 CABF5D JP Z r 5DBFH 

5CF3 CB7F BIT 07H,A 

5CF5 C2BF5D JP NZ f 5DBFH 

BIT 06H,A 

JR Z,5D06H 

LD DE,0000H 

LD A r D 

OR E 

JP Z,5DBFH 

JR 5D12H 

BIT 03H r A 

JR Z,5D12H 



No. of lines to display before pause 

Initialize line counter 

No. of files displayed per line 

Fetch access control byte from dir 

Save dir addr for current file 

Test if entry is occupied 

If not, go get next entry 

Entry used. Is it primary or overflow 

Jump if overflow. Skip this 

entry, get next one 

Test if user or SYSTEM file 

Jump if SYSTEM file 

FFFF if S option specified 

Test if user specified S option 

DE = 0000 if not (FFFF if so) 

Jump if S option not selected 

S option selected. Go display file 

Test if file is invisible 

Jump if file name is displayable 

Listing Continued . . . 
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5D0A 110000 


LD 


DE,0000H 


5D0D 7A 


LD 


A,D 


5D0E B3 


OR 


E 


5D0F CABF5D 


JP 


Z,5DBFH 



FFFF if I option specified 

DE = 0000 if not, FFFF otherwise 

Contents of 5D0B-5D0C modified by 

SYS1 if I option detected 

Jump if I option not selected 



The second section displays the file name and (depending on the options 
selected) the file attributes. This section can be divided into three parts. The first 
part displays the file name and type. The following code is used: 



Figure 9.22 


SYS6 Code From 


5D12 to 5D64 


5D12 C5 


PUSH 


BC 


5D13 7D 


LD 


A r L 


5D14 C605 


ADD 


A,05H 


5D16 6F 


LD 


L,A 


5D17 0E11 


LD 


C,11H 


5D19 0608 


LD 


B,08H 


5D1B 7E 


LD 


A, (HL) 


5D1C 23 


INC 


HL 


5D1D FE20 


CP 


20H 


5D1F 2808 


JR 


Z,5D29H 


5D21 CD3300 


CALL 


0033H 


5D24 0D 


DEC 


C 


5D25 10F4 


DJNZ 


5D1BH 


5D27 1804 


JR 


5D2DH 


5D29 7D 


LD 


A,L 


5D2A 80 


ADD 


A,B 


5D2B 3D 


DEC 


A 


5D2C 6F 


LD 


L,A 


5D2D 7E 


LD 


A, (HL) 


5D2E FE20 


CP 


20H 


5D30 2814 


JR 


Z,5D46H 


5D32 3E2F 


LD 


A,2FH 


5D34 CD3300 


CALL 


0033H 


5D37 0D 


DEC 


C 


5D38 0603 


LD 


B r 03H 


5D3A 7E 


LD 


A, (HL) 


5D3B 23 


INC 


HL 


5D3C FE20 


CP 


20H 


5D3E 2806 


JR 


Z,5D46H 


5D40 CD3300 


CALL 


0033H 


5D43 0D 


DEC 


C 


5D44 10F4 


DJNZ 


5D3AH 


5D46 3E20 


LD 


A,20H 


5D48 CD3300 


CALL 


0033H 


5D4B 0D 


DEC 


C 


5D4C 7D 


LD 


A,L 



Save file's line count/drive no. 
LSB of current entry address 
Add 5 to form addr of file name 
HL = addr of name in dir sector 
Max no. chars in file name/ext 
Max no. chars in file name 

Fetch a character from name 
Bump to next character 
Is last character a blank 
if yes, go display extension 
Display a char from file name 
Count 1 character displayed 
Loop till name displayed 
Name displayed. Go display ext 
Name not 8 chars. Get LSB of current 
addr in dir buf. Add remainder of 
bytes (-1) left in name to get 
address of extension 
Form address of extension in HL 
Fetch 1st byte of extension 
and compare it to a blank 
If blank, no ext. Go blank ext area 
ASCII / 

Display / after file name 
Dec count for total field size 
Max no. chars in extension 

Fetch a byte from ext name 
Bump to next char in extension 
Is current char a blank 
Jump if yes. End of extension 
reached. Go get next file 
Display current char in ext 

Dec count for total field size 
Loop till extension displayed 

Follow file name or extension 

With a blank 

Dec count displayed in field 

Fetch LSB of current file entry 

Listing Continued . . . 
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5D4D E6E0 


AND 


0E0H 


5D4F 6F 


LD 


L,A 


5D50 46 


LD 


B, (HL) 


5D51 3E53 


LD 


A r 53H 


5D53 CB70 


BIT 


06H,B 


5D55 2002 


JR 


NZ,5D59H 


5D57 3E20 


LD 


A,20H 


5D59 CD3300 


CALL 


0033H 


5D5C 3E49 


LD 


A,49H 


5D5E CB58 


BIT 


03H r B 


5D60 2002 


JR 


NZ r 5D64H 


5D62 3E20 


LD 


A,20H 


5D64 CD3300 


CALL 


0033H 



Force LSB to beginning of file 

Form beginning of file addr in HL 

Fetch access flag 

ASCII S in case of system file 

Is it a system file 

Jump if yes, display S 

No, replace S with a space 

Display space/S, depending on type 

ASCII I in case file is invisible 

Test if file viewable 

Jump if file invisible 

Not invisible, replace I with space 

Display space/I, 

depending on attribute 



The second part of section two determines if the file has a password, and if so, 
displays a 'P' after the file name. This part of section two is executed only if the 'E' 
or 'S' option has been selected. The following code is used to test for password 
protection on the file: 



Fi 


gure 9.23 S 


YS6 Code . 


5D67 


E5 


PUSH 


5D68 


7D 


LD 


5D69 


C610 


ADD 


5D6B 


6F 


LD 


5D6C 


5E 


LD 


5D6D 


2C 


INC 


5D6E 


56 


LD 


5D6F 


E5 


PUSH 


5D70 


219642 


LD 


5D73 


ED52 


SBC 


5D75 


El 


POP 


5D76 


2814 


JR 


5D78 


78 


LD 


5D79 


E607 


AND 


5D7B 


3E50 


LD 


5D7D 


200F 


JR 


5D7F 


2C 


INC 


5D80 


5E 


LD 


5D81 


2C 


INC 


5D82 


56 


LD 


5D83 


219642 


LD 


5D86 


ED52 


SBC 


5D88 


3E50 


LD 


5D8A 


2002 


JR 


5D8C 


3E20 


LD 


5D8E 


CD3300 


CALL 



HL Save beginning addr of file entry 

A,L Get LSB of file entry address 

A,10H Add 10 to get addr of UPDATE password 

L,A Form addr of UPDATE password in HL 

E, (HL) Fetch LSB of update password 

L Bump to next byte in password 

D, (HL) Fetch MSB of update password 

HL Save address of UPDATE password 

HL,4296H Value for universal password 

HL,DE Test if file password protected 

HL Restore addr of UPDATE password 

Z,5D8CH Jump if file has no password 

A,B Fetch access flags 

07H Isolate access control flags 

A,50H ASCII P 

NZ,5D8EH Jump if not unrestricted access 

L Bump to LSB of ACCESS password 

E,(HL) Fetch LSB of ACCESS password 

L Bump to MSB of ACCESS password 

D, (HL) Fetch MSB of ACCESS password 

HL,4296H Universal password code 

HL,DE is there any ACCESS password 

A,50H ASCII P in case there is a password 

NZ r 5D8EH Go if ACCESS password. Display P 

A,20H No password. Replace P with space 

0033H Disp. P/space, 

depending on permission 

Listing Continued . . . 
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5D91 El 

it 


POP 


HL 


* 

1c 


Blank 


fill remai: 


5D92 3E20 
5D94 CD3300 
5D97 0D 
5D98 20F8 


LD 

CALL 
DEC 
JR 


A,20H 
0033H 
C 
NZ r 5D92H 



Restore beginning addr of file entry 



A = ASCII space 

Display a space 

Dec count for total field size 

Loop till field filled 



The third part of section two is called only if the 'A' option has been selected. 
The code at 5D9A tests for this option and also maintains the files per line count 
using the following instructions: 



Figure 9.24 


SYS6 Code From 


5D9A to 5DBD 


5D9A 


110000 


LD 


DE r 0000H 


5D9D 


7A 


LD 


A,D 


5D9E 


B3 


OR 


E 


5D9F 


CI 


POP 


BC 


5DA0 


C4F15D 


CALL 


NZ,5DF1H 


5DA3 


101A 


DJNZ 


5DBFH 


5DA5 


3E0D 


LD 


A,0DH 


5DA7 


CD3300 


CALL 


0033H 


5DAA 


3E00 


LD 


A,00H 


5DAC 


3D 


DEC 


A 


5 DAD 


2005 


JR 


NZ,5DB4H 


5DAF 


CD4900 


CALL 


0049H 


5DB2 


3E0C 


LD 


A f 0CH 


5DB4 


32AB5D 


LD 


(5DABH) , A 


5DB7 


CD1555 


CALL 


5515H 


5 DBA 


C2DB5D 


JP 


NZ,5DDBH 


5DBD 


0603 


LD 


B f 03H 


counter 







FFFF if A option specified 

Combine LSB and MSB 

Of A option byte. Changed by SYSl 

if A option specified 

Restore files/line count, drive no. 

If A option, go display file size 

Count 1 file displayed. Jump if 

room for more files this line 

Else skip to next line 

By displaying a carriage return 

Get max no. of lines per screen 

Decrement it 

Go if room for more lines this screen 

Else wait for operator reply 

Max. number of lines per screen 

reset line/screen counter 

Test for BREAK key 

Jump if BREAK key active 

Reload no. of files/line 



If the 'A' option has been selected, the following subroutine is called to display 
the logical record length and file size. 



Figure 9.25 SYS6 Code From 5DF1 to 5E65 



* 

* 




•A' 


Opt 


ion of 


DIR Command. 


Display File Size. 




5DF1 


E5 






PUSH 


HL 


Save beginning addr 


of file entry 


5DF2 


2C 






INC 


L 


Bump by 3 




5DF3 


2C 






INC 


L 


to get address of 




5DF4 


2C 






INC 


L 


EOF sector 


Listing Continued . 
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. . . Continued Listing 

5DF5 7E 
5DF6 32695E 
5DF9 2C 
5DFA E5 
5DFB 6E 
5DFC 7D 
5DFD 321F5E 
5E00 D601 
5E02 3E00 
5E04 CE00 
5E06 67 
5E07 11BB5E 
5E0A CD6C60 
5E0D El 
5E0E 7D 
5E0F C610 



5E11 
5E12 
5E13 
5E16 
5E17 
5E18 
5E1B 
5E1E 

5E20 
5E23 
5E24 
5E27 
5E2A 
5E2B 
5E2E 
5E2F 
5E32 
5E35 
5E38 
5E3B 
5E3D 

* 



6F 

7E 

32685E 

2C 

7E 

32675E 

21675E 

0E00 

CDA760 

EB 

11C75E 

CD6C60 

El 

CD3E5E 

EB 

11D45E 

CD6C60 

21B75E 

CD6744 

0601 

C9 



LD A, (HL) 

LD (5E69H) ,A 

INC L 

PUSH HL 

LD L,(HL) 

LD A,L 

LD (5E1FH) r A 

SUB 01H 

LD A,00H 

ADC A,00H 

LD H,A 

LD DE,5EBBH 

CALL 606CH 

POP HL 

LD A,L 

ADD A,10H 

LD L,A 

LD A r (HL) 

LD (5E68H),A 

INC L 

LD A, (HL) 

LD (5E67H),A 

LD HL f 5E67H 

LD C,00H 

CALL 60A7H 

EX DE,HL 

LD DE,5EC7H 

CALL 606CH 

POP HL 

CALL 5E3EH 

EX DE,HL 

LD DE,5ED4H 

CALL 606CH 

LD HL,5EB7H 

CALL 4467H 

LD B,01H 
RET 



Fetch EOF byte offset 

Save in temp, storage area 

Bump to logical record length in dir 

Save address of LRL 

Fetch logical record length 

Move it to A so it can 

be saved in temp, storage 

Sub 1 to force CARRY if LRL = 256 (0) 

Then add CARRY to a 

Byte of zeroes. This yields a 

16 Bit value for LRL (01-0100) 

Addr of LRL in display line 

Convert to ASCII, save in display 

Restore address of LRL 

Fetch LSB of address 

and add 10 to addr of byte 

containing EOF sector no. 

Reform addr of EOF sector in HL 

Fetch LSB of ending sector no. 

Save in temp, storage 

Bump to MSB of EOF sector 

Fetch MSB of ending sector no. 

Save in temp, storage 

Addr of ending sector no. in binary 

Load logical record length. 

Instr. modified at 5DFD 

Divide no. of records by record size 

Quotient to HL 

Addr of ending sec no. in display 

Convert ending sector no. to ASCII 

Restore address of LRL 

Go compute no. grans assigned to file 

Move granule count to HL 

Addr of no. grans in display line 

Convert gran count to decimal ASCII 

Address of LRL display line 

Display LRL/EOF offset and # grans 

Replace line counter with 1 because 

only one file/line with this 

display. Return to caller 



5E3E 110000 LD DE r 0000H 

5E41 7D LD A,L 

5E42 C616 ADD A,16H 

5E44 6F LD L,A 

5E45 7E LD A, (HL) 

5E46 2C INC L 

5E47 FEFE CP 0FEH 

5E49 300C JR NC,5E57H 

5E4B 7E LD A, (HL) 

5E4C 2C INC L 

5E4D E61F AND 1FH 

5E4F 3C INC A 



Zero accumulator 

Fetch LSB of LRL 

Add 16 to position to GAP's 

Form address of GAP's in HL 

Fetch 1st byte of a GAP 

Bump to granule count 

Test for end of GAP's or overflow 

Jump if end or overflow 

Load granule count 

Bump to next GAP 

Isolate granule count 

Compute true granule count 

Listing Continued . . . 
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. . . Continued Listing 
5E50 83 
5F 

30F1 
14 

18EE 
C0 



5E51 

5E52 

5E54 

5E55 

5E57 

GAP'S) 

5E58 46 

5E59 

5E5A 

5E5C 

5E5E 

5E5F 

5E60 

5E62 

5E64 

5E65 



78 

E607 

C661 

67 

78 

E6E0 

C616 

6F 

18DE 



ADD A,E . Form sum in DE 

LD E,A . Update LSB of sum 

JR NC,5E45H . Jump if LSB has not ovef lowed 

INC D . else bump MSB of gran count 

JR 5E45H . Loop till end of GAP'S found 

RET NZ Exit if FF found (end of 

LD B, (HL) Get pointer to overflow entry 

LD A r B Move to A 

AND 07H and isolate the sector number 

ADD A,61H Then form addr of sector buffer 

LD H,A and move MSB of addr to H 

LD A,B Now compute offset within sector 

AND 0E0H Isolate offset to file entry 

ADD A,16H and add offset to GAP'S 

LD L,A Form addr of overflow GAP's in HL 

JR 5E45H Continue till end of GAP'S found 



The third section of DIR code computes the address of the next directory entry 
in the sector buffer. The first entry from each sector is processed, then the second, 
etc. The following code is used to compute the address of the next file entry. 



Figure 9.26 SYS6 Code From 5DBF to 5DF0 



5DBF El 



5DC0 

5DC1 
* 

* 

* 

* 

* 

* 
* 

5DC2 
5DC4 
5DC7 
5DC9 

5DCA 
5DCC 



24 
7C 



POP 

INC 
LD 



HL 

H 
A,H 



Restore beginning addr of 

current directory entry 

Bump to next sector 

Test if end of sector list reached 



Loop control for DIR. All directory sectors are read 
into 8 sector buffers beginning at 6100, 6200, . . . 
before the main loop is entered. Each pass through the 
loop processes one file entry from a sector buffer. At 
the end of the loop the MSB of the file entry address 
is incremented by 100 giving the address of the 
corresponding entry in the next sector. When the end 
of the sector buffers is reached, the LSB of the file 
entry address is incremented by 20 to get the address 
of the next entry in the last sector. Then the MSB 
byte of the next entry address is set to 61 giving the 
address of the next file entry in the first sector, 
etc. 

FE69 CP 69H Have 8 sectors been processed? 

C2EC5C JP NZ,5CECH If not go process entry from next sec 

2661 LD H,61H Reset MSB of buf pointer to 1st sec 

7D LD A,L Fetch LSB of beginning address 

for last entry 

C620 ADD A,20H Add 20 to compute beginning addr 

6F LD L,A of next entry, form addr in HL 

Listing Continued . . . 



TRSDOS 2.3 Decoded 185 



DUMP Command 



. . . Continued Listing 






5DCD 


D2EC5C 


JP 


NC r 5CECH 


5DD0 


CDE15D 


CALL 


5DE1H 


5DD3 


3E0D 


LD 


A r 0DH 


5DD5 


CD3300 


CALL 


0033H 


5DD8 


C32D40 


JP 


402DH 


5DDB 


CDE15D 


CALL 


5DE1H 


5 DDE 

* 
* 


C33040 


JP 


4030H 


* 
5DE1 


210061 


LD 


HL,6100H 


5DE4 


0600 


LD 


B, 00H 


5DE6 


70 


LD 


(HL),B 


5DE7 


2C 


INC 


L 


5DE8 


20FC 


JR 


NZ,5DE6H 


5DEA 


24 


INC 


H 


5DEB 


7C 


LD 


A,H 


5DEC 


FE69 


CP 


69H 


5DEE 


20F6 


JR 


NZ f 5DE6H 


5DF0 


C9 


RET 





Jump if all entries not processed 
Zero sector buffers 
to protect passwords 
Skip to next line 
By displaying a carriage return 
Ret to SYS1 to get next command 
Zero sector buffer for security 
Ret to SYS1 for next command 



Beginning addr of sector buffer 
Sector index 
Zero a byte of a sector 
Bump to next byte of sector 
Loop till one sector zeroed 
Bump to next sector address 
Test if all buffers cleared 
End of sector buffers reached 
Jump if not. Zero next sector 
Yes, return to caller 



9.8 DUMP Command 

The DUMP command writes a specified portion of memory to a disk file. The 
disk file contains embedded control bytes recognized by the loader. Thus, the file 
can be loaded and executed the same as binary files created by the 
editor/assembler. 

There are two sections to the DUMP command. First is the initialization 
section. This section parses the DUMP command, opens the output file, writes the 
file name onto the file, and verifies the START, END, and TRA parameters. 

There are four steps in the initialization process. First, local variables are 
initialized, next the parameters from the DUMP command are processed. Third, 
a six-character file name which will be written to the file is prepared, the file is 
opened, and the file name is written with loader control codes. Fourth, the 
parameters are verified; START must be less than END and START must be 
greater than 7000: 

Code for the first step begins at 5707 and is shown below. 



Figure 9.27 SYS6 Code From 57 D7 to 57E5 



* 
* 
* 

57D7 010070 
57DA ED436858 
57DE ED436E58 
57E2 012D40 
57E5 ED43AB58 


DUMP 

LD 
LD 
LD 
LD 
LD 


Command Proces; 

BC,7000H 
(5868H) f BC 
(586EH) ,BC 
BC,402DH 
(58ABH) ,BC 
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Default START address DUMP 
Initialize START address location 
Initialize END address location 
Default TRANSFER address 
Initialize TRANSFER addr location 



DUMP Command 



The locations initialized by these instructions (5868, 586E and 58AB) may be 
re-intialized by the SYSl call at 57FB if START, END and TRA parameters are 
present. If present, the hex values following those parameters will be stored at the 
address initialized in step one. 

Step Two begins at 57E9 and ends at 57FB; the following is used: 



Figure 9.28 SYS6 Code From 5 7E9 to 5 7FB 



57E9 


115155 


LD 


DE,5551H 


57 EC 


CD1C44 


CALL 


441CH 


57EF 


C23A55 


JP 


NZ,553AH 


57F2 


1A 


LD 


A, (DE) 


57F3 


FE2A 


CP 


2AH 


57F5 


CA3A55 


JP 


Z r 553AH 


57F8 


11F558 


LD 


DE,58F5H 


57FB 


CD7644 


CALL 


4476H 



Address of local DCB area 

SYSl, code 4, copy/edit file name 

Jump if illegal chars in name 

None, check for 

reference to special file (*) 

Jump if found (error) 

Address of START text 

SYSl, code 6. Look for word START 



The call to SYSl at 57EC copies the file name to the local DCB. The call to 
SYSl at 57FB parses the remainder of the DUMP command looking for the 
START, END and TRA phrases. 

Following is the code used for Step Three: 



Figure 9.29 SYS6 Code From 57FE to 584C 



57FE 
5801 

* 

* 

5804 

5806 

5807 

5809 
580B 
580D 
580F 
5811 
5813 
5815 
5817 
5818 
5819 



110E59 
215155 



LD 
LD 



DE,590EH Address of local buffer area 
HL,5551H Address of local DCB 



Copy 1st 6 characters of file name to 590E. Copy 
terminates when a special character is detected or 
6 characters have been copied 



0606 

7E 

FE30 

3813 

FE3A 

3808 

FE41 

380B 

FE5B 

3007 

12 

23 

13 



LD 


B,06H V 


LD 


A, (HL) 


CP 


30H 


JR 


C,581EH 


CP 


3AH 


JR 


C,5817H 


CP 


41H 


JR 


C,581EH 


CP 


5BH 


JR 


NC,581EH 


LD 


(DE),A 


INC 


HL 


INC 


DE 



Max no. of chars to copy 

Get a char from file name 

Test for special character 

(end of file name) 

Go if end of file name found 

Test for numeric 0-9 

Jump if 0-9. Copy character 

Test for special char 3A-3F 

Go if drive no. found. End copy 

Test for upper case letters 

Go if upper case found. End copy 

Char in A-z, 0-9 range. Copy to 

Short list (590E) then bump 

Fetch and store address 

Listing Continued . . . 
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. . . Continued Listing 
581A 10EA 



581C 
581E 
5820 
5821 
5822 
5824 
5827 
582A 
582D 
582F 
5832 
5835 
5838 
583A 
583D 
583F 
5842 
5844 
5847 
5848 
5849 
584C 



1806 

3E20 

12 

13 

10FA 

115155 

21F258 

CD7344 

0600 

210056 

CD2044 

C24C55 

3E05 

CD1B00 

3E06 

CD1B00 

0606 

210E59 

7E 

23 

CD1B00 

10F9 



DJNZ 

JR 

LD 

LD 

INC 

DJNZ 

LD 

LD 

CALL 

LD 

LD 

CALL 

JP 

LD 

CALL 

LD 

CALL 

LD 

LD 

LD 

INC 

CALL 

DJNZ 



5806H 

5824H 

A,20H 

(DE),A 

DE 

5 81 EH 

DE,5551H 

HL,58F2H 

4473H 

B,00H 

HL,56 

4420H 

NZ,554CH 

A,05H 

001BH 

A r 06H 

001BH 

B, 06H 

HL,590EH 

A, (HL) 

HL 

001BH 

5847H 



Loop till 6 chars copied 
or end of name found 
6 chars copied. Skip blank file 
ASCII blank to fill short list 
Add to short list 
Bump to next pos, in short list 
Loop till 6 char name blanked 
Addr of DCB for DUMP file 
Address CIM text 
SYSl/code 5. Add CIM extension 
Specify physical I/O 
sector buffer address 
INIT file 

Jump if error during INIT call 
Control code for file name 
Send control code to disk file 
Number of chars in file name 
Send byte count to disk file 
Count for writing file name 
Address of file name buffer 
Fetch a character from file name 
Bump to next character in name 
Send file name char to disk file 
Loop till name written (6 chars) 



The code from 57FE through 5822 copies six characters of the file name to a 
local buffer. The code is somewhat involved because the file name may be less than 
six characters. The purpose of the copy is to construct a six-character file name 
which will be written onto the file. 

After the file name has been copied, a suffix of CIM (Core Image Memory) is added 
to the file name in the DCB. A SYSl subroutine is used for this operation. 

Next the file is opened, and the control bytes for a six byte text string are written 
to the disk file. These control bytes are followed by the six-character file name 
created earlier. 

Finally, the fourth step of the initialization process is reached. This code verifies 
the START and END addresses. Error messages are produced if either are found 
to be out of range. The following code is used for this step: 



Figure 9.30 SYS 


>6 Code Fro 


m 584E to 5865 


584E 2A6E58 


LD 


HL, (586EH) 


5851 ED4B6858 


LD 


BC r (5868H) 


5855 AF 


XOR 


A 


5856 ED42 


SBC 


HL,BC 


5858 21C458 


LD 


HL r 58C4H 


585B 3861 


JR 


C58BEH 


585D 21FF6F 


LD 


HL,6FFFH 


5860 ED42 


SBC 


HL,BC 
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Load END addr given in DUMP command 
Load START addr given in DUMP command 
Clear carry 

END addr minus start address 
Addr END LESS THAN START message 
Jump if END less than START (error) 
Check for START address over 7000 
Compute 7000 minus START address 

Listing Continued . . . 



DUMP Command 



. . . Continued Listing 

5862 21D958 LD 
5865 3057 JR 



HL,58D9H Addr START LESS THAN 7000 error msg, 
NC f 58BEH Go if START less than 7000 (error) 



The code which writes the core image to disk has two special conditions to 
contend with. First, the core image must be written in blocks of 254 bytes, and 
second, each block must be preceded by loader control codes. The loader control 
codes consist of a control byte (01 for binary data), a byte count of the number of 
bytes following the control code, a two-byte load address and the binary data to be 
loaded. A block of binary data would appear as follows: 



Figure 9.31 SYS4 Data Structure 



Addr. 



Error Index 

List 
(Contents) 



Addr. 



Message 

List 
(Contents) 



Addr. 



Word Index 

List 
(Contents) 



Addr. 



Word List 
(Contents) 



4F84 
4F85 
4F86 
4F87 




01 
82 
04 
02 
05 
06 
89 
08 
02 
05 
89 



— « 

— — — — +• 



4FC4 
4FC6 
4FC8 
4FCA 
4FCC 
4FCE 
4FD0 
4FD2 



5030 
5032 
5037 
503D 
5043 
5049 
504F 
5053 



5030 
5032 
5037 
503D 
5043 
5049 
504F 
5053 



NO 

ERROR 

FORMAT 

PARITY 

DURING 

HEADER 

DATA 

SEEK 



The end of a load module is signalled by control byte 02. This control byte is 
followed by the beginning execution address for the module (also known as the 
transfer address). 
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The code which writes a binary load module can be divided into two sections. 
The first section contains the loop which writes the binary blocks. This loop 
computes the size of the block to be written, writes the control byte, byte count, 
load address and the binary data. The loop is repeated with the load address 
updated after each iteration until the last block of memory has been written. 
Following is the code used for this loop. 



Figure 9.32 SYS6 Code From 5867 to 589D 



5867 


210000 


LD 


HL,0000H £ 
f 


586A 


E5 


PUSH 


i 
HL 


586B 


44 


LD 


B,H 


586C 


4D 


LD 


C r L 


586D 


210000 


LD 


HL,0000H 


5870 


23 


INC 


HL 


5871 


AF 


XOR 


A 


5872 


ED42 


SBC 


HL,BC 


5874 


2829 


JR 


Z r 589FH 


5876 


06FE 


LD 


B,0FEH 


5878 


7C 


LD 


A,H 


5879 


B7 


OR 


A 


587A 


2006 


JR 


NZ,5882H 


587C 


7D 


LD 


A r L 


587D 


FEFF 


CP 


0FFH 


587F 


3001 


JR 


NC f 5882H 


5881 


45 


LD 


B f L 


5882 


El 


POP 


HL 


5883 


3E01 


LD 


A,01H 


5885 


CD1B00 


CALL 


00lBh 


5888 


78 


LD 


A,B 


5889 


C602 


ADD 


A r 02H 


588B 


CD1B00 


CALL 


001BH 


588E 


7D 


LD 


A,L 


588F 


CD1B00 


CALL 


001BH 


5892 


7C 


LD 


A r H 


5893 


CD1B00 


CALL 


001BH 


5896 


7E 


LD 


A f (HL) 


5897 


23 


INC 


HL 


5898 


CD1B00 


CALL 


001BH 


589B 


10F9 


DJNZ 


5896H 


589D 


18CB 


JR 


5 86 AH 



START address. Filled in by SYS1 

from call at 57FB 

Save current START address 

Then copy it 

To BC 

END address. Filled in by 

SYS1 from call at 57FB 

END addr +1 for true byte count 

Clear CARRY 

Compute no. of bytes to write 

Go if done. Else break transfer 

into blocks of 254 bytes 

Max bytes between control bytes 

Test byte count for transfer 

Get status for upper 8 bits 

Go if transfer count > 255 

Transfer not > 255 

Check if = 255 

Jump if it is. Use 254 

Move count < 255. Use true val 

Restore begin, addr current block 

Code 01 (load data follows) 

Write control code 01 

Get count. Add 2 for overhead 

If it was 254 (max) , may write 

a zero. Write count for DATA 

Then write LSB 

of load address 

followed by MSB 

of load address 

Then begin writing core image 

Bump to next fetch address 

Write a byte of core image 

Loop till block written 

Go test if all blocks written 
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The second section writes the transfer address and closes the disk file. The 
transfer address consists of a control byte followed by the beginning execution 
address for the module. Following is the code used for this section: 



Figure 9.33 SYS6 Code From 589F to 58C1 



589F 


El 


POP 


HL 


58A0 


3E02 


LD 


A r 02H 


58A2 


CD1B00 


CAL1 


001BH 


58A5 


3E02 


LD 


A,02H 


58A7 


CD1B00 


CALL 


001BH 


58AA 


210000 


ID 


HL f 0000H 


5 8 AD 


7D 


Ld 


A,L 


58AE 


CD1B00 


CALL 


001BH 


58B1 


7C 


LD 


A,H 


58B2 


CD1B00 


CALL 


001BH 


58B5 


CD2844 


CALL 


4428H 


58B8 


C24C55 


JP 


NZ,554CH 


58BB 


C32D40 


JP 


402DH 


58BE 


CD6744 


CALL 


4467H 


58C1 


C33040 


JP 


4030H 



Done, clear stack, prepare to 
write transfer address. First 
Write a control code 02 
followed by a byte count 
for the address (2 of course) 
Transfer address filled in by 
SYS1 from call at 57FB 
Fetch a LSB of transfer address 
Write LSB of transfer address 
Fetch MSB of transfer address 
Write MSB of transfer address 
CLOSE disk file. 
Jump if any error during CLOSE 
No error jump to SYSl 
Write DUMP error message 
Ret to SYSl. Wait for next command 



9.9 FREE Command 

The FREE command dislays the diskette name and creation date, the number 
of available granules and the number of available HIT indices for each diskette 
currently mounted. The FREE command has no parameters. 

Processing of the FREE command can be divided into five steps. Step one 
determines if the drive is ready; step two reads the GAT sector and moves the date 
and diskette name to the display line; step three computes the number of free 
granules; step four computes the number of available HIT entries; and step five 
dislays all of the above information. The following code is used for step one: 



Figure 9.34 SYS6 Code From 5EE0 to 5EF4 



* 






* 






* 






5EE0 


0E00 


LD 


5EE2 


3E03 


LD 


5EE4 


115155 


LD 


5EE7 


12 


LD 


5EE8 


CD2444 


ca: 



FREE Command Processing 

C,00H Default beginning drive number 
A,03H Illegal character to local DCB 
DE,5551H Address of local DCB 
(DE) ,A Store illegal character so OPEN 
will return immediately 
Jj 4424H OPEN dummy file 

(load SYS2 into 4E00) 

Listing Continued . 
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. . . Continued Listing 

5EEB C5 PUSH 

5 EEC CDFD50 CALL 

5EEF 2067 JR 

5EF1 79 LD 

5EF2 C630 ADD 

5EF4 32685F LD 



BC 
50FDH 

NZ,5F58H 
A,C 
A,30H 
(5F68H) , A 



Save drive number 

See if drive available 

(use SYS2 subroutine) 

Jump if drive not available 

Fetch current drive number 

Convert drive number to ASCII 

and move it to display line 



Notice the dummy OPEN call at 5EE8. This call is made simply to load SYS2, 
so the subroutine at 50FD in SYS2 can be called. That subroutine determines if 
a drive is on line and ready, and returns a zero or non-zero status to indicate a ready 
or not-ready drive. 

The code for step two is shown below: 



Figure 9.35 SYS6 Code From 5EF1 to 5F10 



5EF1 
5EF2 
5EF4 
5EF7 
5EFA 
5EFD 
5F00 
5F03 
5F06 
5F08 
5F0B 
5F0E 
5F10 



79 

C630 

32685F 

CDF04A 

C24C55 

21D04D 

116E5F 

010800 

EDB0 

11795F 

010800 

EDB0 

21004D 



LD 

ADd 

LD 

CALL 

JP 

LD 

LD 

LD 

LDIR 

LD 

LD 

LDIR 

LD 



A,C 
A,30H 
(5F68H) , A 
4AF0H 
NZ,554CH 
HL,4DD0H 
DE r 5F6EH 
BC,0008H 

DE f 5F79H 
BC,0008H 

HL,4D00H 



Fetch current drive number 

Convert drive number to ASCII 

and move it to display line 

Read GAT sector for drive 

Jump if error GAT sector read 

Addr of disk name in GAT sector 

Addr of disk name in display 

Number of bytes in disk name 

Move name from GAT sector to display 

Addr of creation date on display 

Number of bytes in date 

Move date from GAT sector to display 

Start addr of GAT table in GAT sec 



The code for step three begins at 5F16. It begins by initializing the HL register 
to the beginning address of the GAT in the sector buffer and zeroing the DE 
register, which will serve as the available granule counter. 

A loop control value is loaded into the B register at 53 16. Notice that this value 
is a fixed constant equal to the number of tracks per drive. 

The main loop for counting available granules begins at 5F18 and extends to 
5F23. Each GAT entry (there is one per track — each entry contains two granule 
flags in Bits and 1), is fetched, and Bits and 1 are interrogated. When either is 
found to be zero (granule is available), the available granule count is incremented 
by the instruction at 5F1D. 
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After all GAT entries have been processed, the available granule count is 
converted to ASCII and stored in the FREE header message. Following is the code 
used for step three. 



Figure 9.36 SYS6 Code From 5F10 to 5F2D 



5F10 


21004D 


LD 


HL,4D00H 


5F13 


110000 


LD 


DE,0000H 


5F16 


0623 


LD 


B,23H 


5F18 


7E 


LD 


A, (HL) 


5F19 


37 


SCF 




5F1A 


IF 


RRA 




5F1B 


3801 


JR 


C f 5FlEH 


5F1D 


13 


INC 


DE 


5F1E 


FEFF 


CP 


0FFH 


5F20 


20F7 


JR 


NZ,5F19H 


5F22 


2C 


INC 


L 


5F23 

* 

* 


10F3 


DJNZ 


5F18H 


5F25 


EB 


EX 


DE,HL 


5F26 


11905F 


LD 


DE,5F90H 


5F29 


CD6C60 


CALL 


606CH 


5F2C 


CI 


POP 


BC 


5F2D 


C5 


PUSH 


BC 



Start addr of GAT table in GAT sec 

Zero accumulator. Will hold 

number of free grans 

Max no. of GAT entries to examine 

Fetch a GAT entry 

Set CARRY so 1 is forced to bit 7 

Bit (granule) to carry 

Go if gran r current track assigned 

If not, count 1 free granule 

Test if bit 1 (gran 1) available 

Jump if granule 1 available 

Bump to next track in GAT 

Loop till all tracks tested 



Count of available grans to HL 
Array addr to save ASCII value 
Convert count to ASCII and save 
Restore current drive no. to C 
and save for later use 



The code for step four begins at 5F2E and extends through 5F4F. This code 
scans the HIT, counting the number of available slots. As with the loop in step 
three, the HL register contains the table address, while the counter is maintained in 
the DE register. 

Step four begins by reading the HIT sector into a buffer at 4D00. After 
initializing the HL and DE registers, the main loop (5F3A - 5F49) is entered. 

Available slots in the HIT are indicated by a zero byte. Searching the HIT for the 
zero bytes is complicated by the fact that not all bytes in the HIT represent slots. 
Technically, the HIT contains 256 (dec.) bytes which could be used as slots; 
however, only 48 (dec.) of these are directory slot entries. 

Slot entries are assigned in groups of 8, starting on the address boundaries: 
XX40, XX60, XX80,. . . XXEO. The bulk of the search loop is concerned with 
detecting when the end of a slot group has been reached and computing the 
address for the next group. 
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After a slot has been tested (5F3A - 5F3E) and the slot counter has been 
incremented (if appropriate), a test for the end of the slot group is performed. The 
code for this test occuppies 5F3F - 5F44. A jump at 5F44 is taken if the end of 
the group has not been reached. If the end of the group has been reached, control 
falls through to the instructions 5F46 - 5F49, where the next slot group address 
is computed, and simultaneously a test for the end of the HIT is performed. 

When the end of the HIT is reached, the available slot count is converted to 
ASCII and stored in the FREE header message via the instructions at 5F4B - 
5F4F. Following is the code used for step four: 



Figure 9.37 SYS6 Code From 5F2E to 5F4F 



Prepare to Compute the Number of Files Assigned to 
Diskette by Counting HIT Indices 



5F2E 
* 


CD2E51 


CALL 


* 
* 


Prepa 


re to C 


* 
* 




Disket 


* 
5F31 


C24C55 


JP 


5F34 


21404D 


LD 


5F37 


110000 


LD 


5F3A 


7E 


LD 


5F3B 


B7 


OR 


5F3C 


2001 


Jr 


5F3E 


13 


INC 


5F3F 


2C 


INC 


5F40 


7d 


LD 


5F41 


E6E7 


AND 


5F43 


BD 


CP 


5F44 


28F4 


JR 


5F46 


C620 


ADD 


5F48 


6F 


Ld 


5F49 


20EF 


JR 


5F4B 


EB 


EX 


5F4C 


11835F 


LD 


5F4F 


CD6C60 


CALL 



512EH 



Read HIT sector (use SYS2 subroutine) 



NZ r 554CH 

HL,4D40H 

DE,0000H 

A, (HL) 

A 

NZ f 5F3FH 

DE 

L 

A,L 

0E7H 

L 

Z,5F3AH 

A,20H 

L,A 

NZ f 5F3AH 

DE,HL 

DE,5F83H 

606CH 



Jump if error during read 

Start of HIT area for user files 

Clear accumulator 

Fetch a HIT index 

Set status flags 

Go if file assigned this slot 
Else count 1 space available 
Bump to next slot in HIT 
Prepare to test for 
end of slot range 
Reached end of a slot range? 
If not, go continue searching 
Yes, bump to next slot area 
Form next HIT address in HL 
Loop if end of HIT not reached 
Free HIT slots to HL for conversion 
5 byte array addr for ASCII HIT slots 
Convert free slots to ASCII decimal 



Step five displays the header message and tests if all drives have been processed. 
Following is the code used for step five: 



Figure 9.38 SI 


r S6 Code Froi 


n 5F52 to 5F5F 


5F52 21625F 


LD 


HL,5F62H 


5F55 CD6744 


CALL 


4467H 


5F58 CI 


POP 


BC 


5F59 0C 


INC 


C 


5F5A 79 


LD 


A,C 


5F5B FE04 


CP 


04H 
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Addr of display line DRIVE X — .. 

Display title line with values 

Restore drive no. to C register 

Bump to next drive 

Move drive to A for 

Compare. Test if all drives done 

Listing Continued . 
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. . . Continued Listing 
5F5D 208C JR 

5F5F C32D40 JP 



nZ r 5EEBH Jump if more drives to process 

402DH Done, ret to SYS1 for next command 



9.10 KILL Command 

Processing for the KILL command is very straightforward. The file name to be 
KILL'ed is copied from the command line to a local DCB area using a SYSl 
function; then the file is KILL'ed by a nucleus call to the KILL subroutine. 
Following is the code used for this command: 



Figure 9.39 SYS6 Code From 5914 to 5929 



* 
* 
* 

5914 
5917 
591A 
591D 
5920 
5923 
5926 
5929 



KILL Command Processing 

115155 LD DE,5551H Local DCB address 

CD1C44 CALL 441CH File name to local DCB (SYSl routine) 

C23A55 JP nZ,553AH Jump if illegal chars in file name 

CD2444 CALL 4424H OPEN file to KILL 

C24C55 JP NZ,554CH Jump if any error during OPEN 

CD2C44 CALL 442CH KILL file 

C24C55 JP NZ,554CH Jump if error during KILL 

C32D40 JP 402DH Reload SYSl to wait for next command 



For a description of the KILL subroutine see Section (to be inserted later) 
9.11 LIB Command 

The LIB command dislays the command list used by SYSl to determine if a 
system command is being invoked. It does not list the commands embedded in 
SYSl, which are: BASIC2, DEBUG and TRACE. 

Since SYSl is loaded beneath SYS6, it can be directly accessed by SYS6 
although this is not a recommended practice. The LIB routine is aware of the 
structure for the command list and skips over the SYSl address for processing the 
commands. The following code is used for the LIB command: 



Figure 9.40 S} 


'S6 Code Fror 


n 533 A to 5367 


* 
* 




LIB Routine 


533A 21BD4E 


LD 


HL,4EBDH fl 


533D 0E04 


LD 


C,04H 


533F 3EC2 


LD 


A,0C2H 


5341 CD3300 


CALL 


0033H 


5344 0606 


LD 


B,06H 


5346 7E 


LD 


A, (HL) 


5347 23 


INC 


HL 


5348 CD3300 


CALL 


0033H 



Addr of 2nd cmd list in SYSl 

No. of cmds printed per line 
Compression code for 2 blanks 
Display two blanks 
No. chars in each cmd list entry 
Get a char from command list 
Bump to next char in list 
Display character 

Listing Continued . . . 
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. . . Continued Listing 






534B 


10F9 


DJNZ 


5346H 


534D 


3EC8 


LD 


A r 0C8H 


534F 


CD3300 


CALL 


0033H 


5352 


23 


INC 


HL 


5353 


23 


INC 


HL 


5354 


7E 


LD 


A, (HL) 


5355 


B7 


OR 


A 


5356 


280A 


JR 


Z,5362H 


5358 


00 


DEC 


C 


5359 


20E9 


JR 


NZ f 5344H 


535B 


3E0D 


LD 


A,0DH 


535D 


CD3300 


CALL 


0033H 


5360 


18DB 


JR 


533DH 


5362 


3E0D 


LD 


A r 0DH E 


5364 


CD3300 


CALL 


0033H t 


5367 


C32D40 


JP 


402DH e 



Loop till all chars displayed 

Compression code for 8 blanks 

Display 8 blanks 

Skip over addr of action routine 

in SYS1 for this command 

Get 1st char of next command 

Get status for end of list test 

Jump if end of list reached 

Count no. of cmds on this line 

Jump if line not full 

Else, skip to next line 

By displaying carriage return 

Go top of loop, reset counts 

Done, skip 

to next line 

and ret to SYSl for next command 



9.12 LIST Command 

The LIST command dislays the contents of a file on the video. It appears from 
the code that the intent was to provide a command of the form: 



Figure 9.41 LIST Command Syntax 



LISTttfilespecMline = x' line #') 



where line x is an optional parameter which specifies where the display is to begin. 
This syntax would work, except for a bug in the code where the command line is 
parsed for the LINE option. The error arises because the LINE text address is 
loaded into the BC register rather than the DE resister. The code reads: 



Figure 9.42 SYS6 Code From 5942 to 5945 



5942 018B59 LD BC,598BH 
5945 CD7644 CALL 4476H 



Address of LINE text 

SYSl, option 6 test for LINE option 



whereas, it should be: 



Figure 9.43 SYS6 Code From 5942 to 5945 



5942 
5945 



LD DE, 598BH Address of LINE text 

CALL 4476H SYSl, option 6 test for line option 
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Assuming this error were corrected, LIST would work as follows: 
The file name is copied to a local DCB using a SYS1 function. If a line number is 
specified, its value is stored in location 5954 - 5955. The file is OPEN'ed, and the 
specified number of lines is skipped. The balance of the file is read on a character 

basis and displayed until an end of file or record not found status is returned. 
Following is the code used for the LIST command: 



Figure 9.44 SYS6 Code From 592C to 5988 



* 
* 



LIST Command Processing 



592C 010000 
592F ED435459 
5933 115155 
5936 CD1C44 



5939 
593C 
593D 
593F 
5948 
594A 
594D 
5950 
5953 
5956 
5957 
5958 
595A 
595D 
595F 
5961 
5962 
5964 
5965 
5967 
596A 
596D 
596F 
5972 
5974 
5976 
5979 
597C 
597E 
5980 
5983 
5985 
5988 



C23A55 

1A 

FE2A 

CA3A55 

0600 

210056 

CD2444 

C24C55 

010000 

78 

Bl 

280D 

CD1300 

FE0D 

20F9 

0D 

20F6 

05 

20F3 

115155 

CD1300 

200F 

CD3300 

FE0D 

20F1 

CD1555 

C23040 

18E9 

FE1C 

CA2D40 

FE1D 

CA2D40 

C34C55 



LD 
LD 
LD 
CALL 

JP 

LD 

CP 

JP 

LD 

LD 

CALL 

JP 

LD 

LD 

OR 

JR 

CALL 

CP 

JR 

DEC 

JR 

DEC 

JR 

LD 

CALL 

JR 

CALL 

CP 

JR 

CALL 

JP 

JR 

CP 

JP 

CP 

JP 

JP 



BC r 0000H 
(5954H) ,BC 
DE f 5551H 
441CH 

NZ f 553AH 

A, (DE) 

2AH 

Z r 553AH 

B,00H 

HL r 5600H 

4424H 

NZ,554CH 

BC,0000H 

A,B 

C 

Z f 5967H 

0013H 

0DH 

NZ r 595AH 

C 

NZ f 595AH 

B 

NZ,595AH 

DE,5551H 

0013H 

NZ,597EH 

0033H 

0DH 

NZ,5967H 

5515H 

NZ,4030H 

5967H 

1CH 

Z f 402DH 

1DH 

Z,402DH 

554CH 



Signal no LINE option 

Selected by zeroing 5954 

Address of local DCB 

Copy and edit file. Move it to 

local DCB. Use SYS1 subroutine. 

Jump if illegal chars in file name 

Test for 

Reference to special file (*) 

Go if special file reference (error) 

Specify physical I/O 

Sector buffer address for file 

OPEN file to be LIST'ed 

JUMP if error during OPEN 

LINE option flag 

BC = 0000 if LINE not specified 

BC = Value if LINE value specified 

Jump if LINE option not given 

Get a character from source file 

Have we reached end of a line 

No, loop till end of line 

Yes, decrement line count 

in BC. If non-zero 

Keep looping (skipping lines) 

till no. in LINE option passed 

Addr of file DCB. Begin listing file 

Get a character from source file 

Go if not good status (go test EOF) 

Display character returned 

Test for end of line 

If not end, loop till end found 

Test for BREAK/SHIFT@ condition 

If BREAK active terminate LIST 

Else, loop till end of source file 

Test error status for EOF 

If so, Get SYS1 for next command 

Test for record not found error 

If RNF, done. Get SYS1 

Call SYS4 to generate error msg. 
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At 5976 a call is made to a subroutine at 5515. This subroutine checks for an 
active SHIFT @ key, and if found, pauses until any other key is struck. This allows 
a user to suspend and resume a listing operation. Unfortunately, the function does 
not work reliably because the test for the SHIFT @ key is followed almost 
immediately by a test for any active key (resume). This can result in the SHIFT @ 
key being read twice, once for the suspend read and immediately afterwards for the 
resume read. The following code is used for the suspend/resume operation: 



Figure 9.45 S} 


'S6 Code Fror 


n5515 to 5539 


5515 3A0F43 


LD 


A, (430FH) 


5518 E620 


AND 


20H 


551A EE20 


XOR 


20H 


551C C8 


RET 


Z 


551D 3A4038 


LD 


A, (3840H) 


5520 E604 


AND 


04H 


5522 C0 


RET 


NZ 


5523 CD2B00 


CALL 


002BH 


5526 FE60 


CP 


60H 


5528 2802 


JR 


Z,552CH 


55 2 A AF 


XOR 


A 


552B C9 


RET 




552C 3A4038 


LD 


A, (3840H) 


552F E604 


AND 


04H 


5531 C0 


RET 


NZ 


5532 CD2B00 


CALL 


002BH 


5535 B7 


OR 


A 


5536 28F4 


JR 


Z,552CH 


5538 AF 


XOR 


A 


5539 C9 


RET 





Get system condition flags 

Isolate BREAK key test flag 

Test if BREAK test flag on 

Ret to caller if BREAK test inactive 

Load row contents for BREAK key 

Isolate BREAK key list 

Exit non-zero status if BREAK active 

BREAK not active. Strobe keyboard 

Test for SHIFT @ 

Jump if SHIFT @ active 

Else signal no activity 

and return to caller 

Refetch BREAK row contents 

Isolate BREAK key bit 

Exit if BREAK active 

If not active strobe keyboard again 

Set status flag for input 

Loop till BREAK active (return 

w/non-zero status) 

Or, any key active (return 

w/zero status) 

Return to caller 



9.13 LOAD Command 

Processing for the LOAD command begins at 5994. The code begins by calling 
SYS1 with a option 40 to copy the file name from the LOAD command to a local 
DCB area. After the file name has been copied, the file loader in the nucleus is 
called to load the file. The following code is used for LOAD processing: 



Figure 9.46 SYS6 Code From 5994 to 59 A9 



* 
* 

if 


LOAD 


command ; 


5994 115155 
5997 CD1C44 
599A C23A55 
599D 1A 


LD 

CALL 
JP 
LD 


DE,5551H 
441CH 
NZ,553AH 
A, (DE) 
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Address of local DCB area 
SYSl/code 4, copy file name to DCB 
Jump if illegal chars found in name 
else test for special file 

Listing Continued . . . 



PRINT Command 



. . . Continued Listing 

599E FE2A CP 2AH 

59A0 CA3A55 JP Z,553AH 

59A3 CD3044 CALL 443 0H 

59A6 CA2D40 JP Z,402DH 

59A9 C34C55 JP 554CH 



name (*) 

Go if special file name * (error) 
Call nucleus routine to load file 
(hope it doesn't overlay SYS6) 
No error during load. Recall SYS1 
Add file bit to error code and 
call SYS 4. Wait for next command 



For details on the file loader in the nucleus see Section 4.3.8. 
9.14 PRINT Command 

The PRINT command is similar to the LIST command except that it has no 
LINE option, and the file is copied to the printer rather than the video. The code 
begins with a SYS1 call to move the file name from the command line to a local 
DCB area. Following that, the file is OPEN'ed and read on a character basis. Each 
character read is sent to the printer by calling the print driver in LEVEL II. Then 
a subroutine at 55 15 is called in test for SHIFT @ or BREAK (see Section 9.12 for 
details). 

The read, print, check for suspend loop terminates when an end of file, or record 
not found status is returned from the read operation. Following is the code used for 
the PRINT command: 



Figure 9.47 SYS6 Code From 59AC to 59EB 



* 

* 




PRINT 


Command Pr< 


5 9 AC 


115155 


LD 


DE,5551H 


59AF 


CD1C44 


CALL 


441CH 


59B2 


C23A55 


JP 


NZ f 553AH 


59B5 


1A 


LD 


A, (DE) 


59B6 


FE2A 


CP 


2AH 


59B8 


CA3A55 


JP 


Z,553AH 


59BB 


0600 


LD 


B,00H 


59BD 


210056 


LD 


HL,5600H 


59C0 


CD2444 


CALL 


4424H 


59C3 


C24C55 


JP 


NZ,554CH 


59C6 


115155 


LD 


DE,5551H 


59C9 


CD1300 


CALL 


0013H 


59CC 


200C 


JR 


NZ,59DAH 


59CE 


CD3B00 


CALL 


003BH 


59D1 


CD1555 


CALL 


5515H 


59D4 


C23040 


JP 


NZ,4030H 


59D7 


C3C659 


JP 


59C6H 


59DA 


F5 


PUSH 


AF 


59DB 


3E0D 


LD 


A,0DH 



Address of local DCB area 
SYSl/code 4, copy file name to DCB 
Go if illegal chars in name (error) 
Fetch 1st character of file name 
Test for special file name (*) 
Jump if special file name (error) 
Specify physical I/O 
Sector buffer address 
OPEN file 

Jump if error occurred during OPEN 
Address of disk file DCB 
Get a character from source file 
If error while reading source file 
go test for EOF/RECORD NOT FOUND 
Send char to ROM print driver 
Test for BREAK or SHIFT @ condition 
If BREAK active exit print operation 
If SHIFT @ active wait for key hit 
Loop till disk read status non-zero 
Save disk status 
Terminate current line by 

Listing Continued . . . 
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. . . Continued Listing 



59DD 


CD3B00 


CALL 


003BH 


59E0 


Fl 


POP 


AF 


59E1 


FE1C 


CP 


1CH 


59E3 


CA2D40 


JP 


Z,402DH 


59E6 


FE1D 


CP 


1DH 


59E8 


CA2D40 


JP 


Z,402DH 


59EB 


C34C55 


JP 


554CH 



Printing a carriage return 

Reload disk drive status 

EOF on source file? 

If SO, ret to SYS1 (TRSDOS READY) 

If not, check for RECORD NOT FOUND 

If RNF ret to SYS1 for next command 

Not EOF/RNF, let SYS4 process it 



9.15 PROT Command 

This command alters the password for all non-system files on the specified 
drive. Besides a drive specification, it has three options. They are: 

PW - Change diskette password. 

UNLOCK- Remove password from all user files. 

LOCK- Assign the diskette password to all files. 

Code for PROT processing begins at 536 A and ends at546B. It begins by: testing 
a bit in 430F (system condition flags) to determine if the PROT command is 
privileged (executable by the user), initializing the PW (53D9) LOCK (53F9) and 
UNLOCK (5403) bytes, processing a drive specification if present, and calling 
SYS1 (option 60) to parse the option in the PROT command line. The following 
code is used for these operations: 



Figure 9.48 SYS6 Code From 536A to 5395 



PROT Command Processing 



536A 3A0F43 LD A, (430FH) 

536D CB6F BIT 05H,A 

536F C26E54 JP NZ,546EH 

5372 010000 LD BC,0000H 

5375 ED43D953 LD (53D9H) ,BC 

5379 ED43F953 LD (53F9H) ,BC 

537D ED430354 LD (5403H) ,BC 

5381 0E00 LD C,00H 

5383 7E LD A, (HL) 

5384 FE3A CP 3AH 
5386 2006 JR NZ,538EH 

5388 23 INC HL 

5389 7E LD A, (HL) 
538A D630 SUB 30H 
538C 4F LD C,A 

53 8D 23 INC HL 

538E 79 LD A,C 

538F 32BC53 LD (53BCH) ,A 

5392 11EB54 LD DE,54EBH 

5395 CD7644 CALL 4476H 



Get system condition/permission flag 
Test if PROT command allowed 
Jump if PROT not permitted 
Zero value for 
PW flag 
LOCK flag 
UNLOCK flag 

Setup C reg for default drive 
Get 1st char following PROT command 
If it's a : there's a drive spec. 
Jump if no drive specification 
Get drive no. Bump to next char 
Fetch drive number from command 
Convert ASCII to binary 
Save drive number in C reg 
Bump to next char in command 
Drive number to A register 
so it can be saved at 53BC 
Address of PW/LOCK/UNLOCK options 
SYSl/code 6, compare rest of 
command to option list 
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Next: the result of the option parse is tested; SYS2 is loaded with a dummy 
OPEN call because its password encode subroutine will be needed, and the 
diskette password is read from the keyboard and compared to the password on the 
diskette. The following code is used for these operations: 



Figure 9.49 SYS6 Code From 5398 to 53 D5 



5398 


3AD953 


LD 


A, (53D9H) 


539B 


21F953 


LD 


HL r 53F9H 


539E 


B6 


OR 


(HL) 


539F 


210354 


LD 


HL r 5403H 


53A2 


B6 


OR 


(HL) 


53A3 


CA6B52 


JP 


Z f 526BH 


53A6 


3E03 


LD 


A,03H 


53A8 


115155 


LD 


DE,5551H 


53AB 


12 


LD 


(DE),A 


53AC 


CD2444 


CALL 


4424H 


53AF 


21A054 


LD 


HL,54A0H 


53B2 


CD6744 


CALL 


4467H 


53B5 


CD5454 


CALL 


5454H 


53B8 


226 851 


LD 


(5168H) ,HL 


53BB 


0E00 


LD 


C,00H 


53 BD 


CDF04A 


CALL 


4AF0H 


53C0 


C24C55 


JP 


NZ,554CH 


53C3 


2ACE4D 


LD 


HL, (4DCEH) 


53C6 


ED5B6851 


LD 


DE f (5168H) 


53 CA 


AF 


XOR 


A 


53 CB 


ED52 


SBC 


HL,DE 


53CD 


2809 


JR 


Z,53D8H 


LD 


HL,54D2H 


Addr of INVALID 


53D2 


CD6744 


CALL 


4467H 


53D5 


C33040 


JP 


4030H 



Get PW flag 

Address of LOCK flag 

Combine PW/LOCK test results (SYS1) 

Address of UNLOCK flag 

Combine with PW/LOCK/UNLOCK test 

results from SYS1 

Go if PW/LOCK/UNLOCK not specified 

Illegal character code 

Address of local DCB 

Put illegal char in DCB so OPEN 

will return immediately 

OPEN dummy file. Load SYS2 into 4E00 

Addr of MASTER PASSWORD? message 

Display message 

Go read password from keyboard 

Save encode of password 

C = drive number to read 

Read track 11, sector into 4D00 

Jump if error during READ 

Addr of password in GAT sector buffer 

Addr of new PW in SYS2 storage area 

Clear CARRY flag 

Compare encode of passwords 

Go if correct PW entered, 53CF 21D254 

MASTER PASSWORD msg 

Display message 

Return to SYS1 for next command 



The diskette password is read by the following subroutine; 



Figure 9.50 SYS6 Code From 5454 to 546B 

5454 0608 LD B,08H 

5456 210056 LD HL,5600H 

5459 CD4000 CALL 0040H 
545C EB EX DE f HL 
545D 2600 LD H,00H 
545F 68 LD L,B 

5460 19 ADD HL,DE 

5461 3E08 LD A,08H 

5463 90 SUB B 

5464 47 LD B,A 



Max no. of characters to read 
Address of local buffer 
Wait for user input 
DE = beginning buffer address 
Set HL equal to number of 
characters read from keyboard 
Compute end of data in buffer 
Then compute number of bytes 
remaining in buffer 
and save as counter 

Listing Continued . . 
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. . . Continued Listing 






5465 3E20 


LD 


A,20H 


5467 77 


LD 


(HL),A 


5468 23 


INC 


HL 


5469 10FC 


DJNZ 


5467H 


546B C3D150 


JP 


50D1H 



Then blank fill 

rest of buffer 

Bump to next position in buffer 

and loop till buffer blank 

SYS2 subroutine to encode password 



Assuming no errors occurred in any of the code above, processing for each of the 
PROT options begin. The section of code for each option begins by testing if that 
particular option was specified. If it was not, control goes to the next option. 

Following is the code used for the PW option: 



Figure 9.51 SI 


\S6 Code Fro 


m 53D8 to 53F2 


53D8 110000 


LD 


DE,0000H 


53DB 7A 


LD 


A,D 


53DC B3 


OR 


E 


53DD 2816 


JR 


Z,53F5H 


53DF 21B954 


LD 


HL r 54B9H 


53E2 CD6744 


CALL 


4467H 


53E5 CD5454 


CALL 


5454H 


53E8 22CE4D 


LD 


(4DCEH) ,HL 


53EB 3ABC53 


LD 


A, (53BCH) 


53EE 4F 


LD 


C r A 


53EF CD034B 


CALL 


4B03H 


53F2 C24C55 


JP 


NZ,554CH 



Load results from SYS1 PW test 

53D9/53DA will contain 

FFFF if PW option detected 

Go if zero (PW option not selected) 

Addr Of NEW MASTER PASSWORD? msg 

Display message 

Put reply (PW) in buffer at 5600 

Save PW encode in GAT sector buffer 

Get drive number 

Move to C register for nucleus call 

Write GAT sector 

Go if error during GAT sector write 



Following is the code for the LOCK and UNLOCK option. Both options cause 
the same operation to take place; the difference is that in one case the encode of the 
diskette password is added to all fields, and in the other case all passwords are 
removed (replaced by the encode of a password for eight blanks). 



Figure 9.52 S\ 


r S6 Code Fr< 


im53F5 to 5451 


53F5 2ACE4D 


LD 


HL, (4DCEH) 


53F8 110000 


LD 


DE,0000H 


53FB 7A 


LD 


A,D 


53FC B3 


OR 


E 


53FD 200D 


JR 


NZ,540CH 


53FF 219642 


LD 


HL,4296H 


5402 110000 


LD 


DE,0000H 


5405 7A 


LD 


A,D 


5406 B3 


OR 


E 


5407 2003 


JR 


NZ f 540CH 


5409 C32D40 


JP 


402DH 


540C 223054 


LD 


(5430H) ,HL 


540F 3ABC53 


LD 


A, (53BCH) 
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Load encode of password 

Get SYS flag for LOCK option 

53F9-53FA will contain 

FFFF if LOCK specified 

Jump if LOCK specified 

Encode of UNIVERSAL password 

Get SYS1 flag for UNLOCK 

Combined SYSl 

flag bytes 

Go if UNLOCK specified, else 

Go SYSl (TRSDOS READY) No PROT cmd 

Save LOCK/UNLOCK PW encode specified 

Load drive number 

Listing Continued . . . 



RENAME Command 



. . . Continued Listing 






5412 


4F 


LD 


C,A 


5413 


CD554B 


CALL 


4B55H 


5416 


1E02 


LD 


E,02H 


5418 


210042 


LD 


HL,4200H 


541B 


CD354B 


CALL 


4B35H 


541E 


C24C55 


JP 


NZ f 554CH 


5421 


2E40 


LD 


L r 40H 


5423 


7E 


LD 


A, (HL) 


5424 


E6F8 


AND 


0F8H 


5426 


FE10 


CP 


10H 


5428 


2010 


JR 


NZ,543AH 


542A 


7D 


LD 


A,L 


542B 


C610 


ADD 


A,10H 


542D 


6F 


LD 


L f A 


542E 


D5 


PUSH 


DE 


542F 


110000 


LD 


DE,0000H 


5432 


73 


LD 


(HL) r E 


5433 


2C 


INC 


L 


5434 


72 


LD 


(HL),D 


5435 


2C 


INC 


L 


5436 


73 


LD 


(HL),E 


5437 


2C 


INC 


L 


5438 


72 


LD 


(HL) r D 


5439 


Dl 


POP 


DE 


543A 


7D 


LD 


A f L 


543B 


E6E0 


AND 


0E0H 


543D 


C620 


ADD 


A,20H 


543F 


6F 


LD 


L,A 


5440 


30E1 


JR 


NC,5423H 


5442 


210042 


LD 


HL,4200H 


5445 


CDEF46 


CALL 


46EFH 


5448 


C24C55 


JP 


NZ,554CH 


544B 


1C 


INC 


E 


544C 


7B 


LD 


A,E 


544D 


FE0A 


CP 


0AH 


544F 


38C7 


JR 


C,5418H 


5451 


C32D40 


JP 


402DH 



Move to C for nucleus call 

Get dir track no. for drive in C 

Sector number to read 

Buffer address = 4200 

Read track 11 , sector 2 

Jump if error during read 

Form addr of 3rd entry in directory 

Get entry available/assigned byte 

Isolate available/assigned list 

Test if entry available 

Jump if entry assigned 

Get LSB of beginning of entry addr 

Compute addr of UPDATE password 

Reform address in HL 

Save track/sector number 

Load master password 

Move it to UPDATE password (LSB) 

Bump to next password in entry 

MSB of master pw to MSB of UPDATE pw 

Bump to LSB of access pw 

LSB of master pw to LSB of access pw 

Bump to MSB of PW 

MSB of master PW to MSB of ACCESS PW 

Restore track/sector no, for next read 

Prepare to form addr of next entry 

Test if end of sector reached 

Compute address of next entry 

Form address in HL 

Go if end of buffer not reached 

Reform buffer address 

Write updated sector back to disk 

Jump if error during rewrite 

Bump sector address 

and move it to A where end 

of track test can be made 

Jump if not end of track 

Done, ret to SYSl for next command 



9.16 RENAME Command 



This command changes the name of the first file specified to the second file 
name specified. Processing for this command begins at 5F9C. 
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Processing begins with a call to SYSl to copy the first file name (the one to be 
changed) to a local DCB (5551). Next, the file named as the first parameter is 
OPEN'ed, and the second file name is copied to a local DCB (5571) using a SYSl 
call. The following code is used for these operations: 



Fi 


?ure 9.53 


SYS6 Code From 5F9C to 5FC3 


* 
* 
* 




RENAME Commar 


5F9C 


115155 


LD 


DE,5551H 


5F9F 


CD1C44 


CALL 


441CH 


5FA2 


C23A55 


JP 


NZ,553AH 


5FA5 


1A 


LD 


A, (DE) 


5FA6 


FE2A 


CP 


2AH 


5FA8 


CA3A55 


JP 


Z,553AH 


5 FAB 


CD2444 


CALL 


4424H 


5FAE 


C24C55 


JP 


NZ,554CH 


5FB1 


117155 


LD 


DE,5571H 


5FB4 


CD1C44 


CALL 


441CH 


5FB7 


C23A55 


JP 


NZ,553AH 


5FBA 


3A5255 


LD 


A, (5552H) 


5FBD 


E607 


AND 


07H 


5FBF 


FE03 


CP 


03H 


5FC1 


3E25 


LD 


A,25H 


5FC3 


D24C55 


JP 


NC f 554CH 



Load DCB address 

SYSl/code 4 r copy file name to DCB 

Jump if illegal chars in name 

Fetch 1st character of name 

Test for special system file (*) 

Error if found (file spec, required) 

OPEN file, load SYS2 at 4E00 

Jump if file not present 

Local DCB addr for 2nd file name 

SYSl/code 4 r Copy file name to DCB 

Jump if illegal chars in new name 

Get access flags for file to RENAME 

Isolate access permission 

Test for RENAME permission 

Error code for not allowed 

Go if RENAME permission required 



Next, the second file is tested for a drive specification. Assuming none exists, the 
drive number from the OPEN'ed DCB for the first file is appended to the second 
file name. The second file is then OPEN'ed, and a check is made to insure the new 
file name is not already assigned. The following code is used for these operations: 



Figure 9.54 SYS6 Code From 5FC6 to 5FF3 



* 
* 

* 

5FC6 
5FC9 
5FCA 
5FCC 
5FCE 
5FD0 
5FD2 
5FD3 
5FD5 
5FD7 
5FD8 



Scan file name looking for a 
If one is found an error 



217155 

7E 

FE3A 

285A 

FE20 

3803 

23 

18F4 

363A 

23 

3A5755 



LD 

LD 

CP 

JR 

CP 

JR 

INC 

JR 

LD 

INC 

LD 



HL,5571H 

A, (HL) 

3AH 

Z,6028H 

20H 

C f 5FD5H 

HL 

5FC9H 

(HL) ,3 AH 

HL 

A, (5557H) 



drive specification, 
has occurred. 

Addr of DCB with new file name 
Get a character from file name 
Test for : (drive spec) 
Go if : found (error) 
Test for end of name 
Jump if end of file name 
Else bump to next character 
and loop till end of name 
Then add drive specification 
Bump to next position in DCB 
Fetch drive number (in binary) 

Listing Continued . . . 
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. . . Continued Listing 






5FDB C630 


ADD 


A,30H 


5PDD 77 


LD 


(HL),A 


5FDE 23 


INC 


HL 


5FDF 3603 


LD 


(HL) ,03H 


5FE1 117155 


LD 


DE,5571H 


5FE4 CD2444 


CALL 


4424H 


5FE7 CA4E60 


JP 


Z,604EH 


5FEA FE18 


CP 


18H 


5FEC C24C55 


JP 


NZ,554CH 


5FEF ED4B5755 


LD 


BC, (5557H) 


5FF3 C5 


PUSH 


BC 



Convert to ASCII 

and save in DCB after new name 

Bump to first pos. past drive spec, 

and store a terminator 

Addr of DCB with new file name 

OPEN new file name 

Go if name already exists (error) 

Test status for other error 

Jump if some other error occurred 

Drive no. to C, dir sector # to B 

Save drive number 



After the operations above have been completed without error, the directory 
sector for the file to be renamed is read using a nucleus subroutine. The new file 
name is copied over the previous file name in the sector buffer and the sector is 
rewritten. The following code is used for these operations: 



Figure 9.55 SYS6 Code From 5FEF to 600B 



5FEF 


ED4B5755 


LD 


BC, (5557H) 


5FF3 


C5 


PUSH 


BC 


5FF4 


CDC14A 


CALL 


4AC1H 


5FF7 


C24C55 


JP 


NZ,554CH 


5FFA 


54 


LD 


D r H 


5FFB 


7D 


LD 


A,L 


5FFC 


C605 


ADD 


A r 05H 


5FFE 


5F 


LD 


E f A 


5FFF 


215D51 


LD 


HL,515DH 


6002 


010B00 


LD 


BC,000BH 


6005 


EDB0 


LDIR 




6007 


CI 


POP 


BC 


6008 


CDD64A 


CALL 


4AD6H 


600B 


C24C55 


JP 


NZ,554CH 



Drive no. to C, dir sector # to B 

Save drive number 

Read dir sector for file to rename 

Go if error during dir read 

Form addr for file entry in DE 

by 

adding 5 to the address in HL 

and moving it to DE 

Addr of SYS2 DCB with new file name 

Max no. of chars in new file name 

Copy new name from buffer in SYS2 

to directory file name area 

Restore dir sector/drive no. 
Rewrite directory sector 
Jump if error during write 



After the directory sector has been updated, the HIT sector is read, and the hash 
code for the new file name is stored at the HIT index for the original file name. 
Following that, the HIT sector is rewritten, and control is returned to SYSl to wait 
for the next command. The following code is used for these operations: 



Figure 9.56 SYS6 Code From 600E to 6025 

600E CD2E51 CALL 512EH 
6011 C24C55 JP NZ,554CH 

6014 54 LD D,H 

6015 58 LD E f B 



Use SYS2 subroutine to read HIT 

Jump if error while reading HIT 

H = MSB of HIT sector buffer. 

B =» directory sector number 

DE = addr of HIT slot for this file 

Listing Continued . . . 
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. . . Continued Listing 






6016 C5 


PUSH 


BC 


6017 215D51 


LD 


HL,515DH 


601A CD9B50 


CALL 


509BH 


601D CI 


POP 


BC 


601E 12 


LD 


(DE),A 


601F CD4151 


CALL 


5141H 


6022 C24C55 


JP 


NZ,554CH 


6025 C32D40 


JP 


402DH 



Save directory sector/drive number 
Addr of SYS2 buffer with new name 
Compute hash code for new file- 
Restore dir sector/drive number 
Save new hash code 

SYS2 subroutine to write updated HIT 
Jump if error while writing HIT 
Done, load SYSl for next command 



9.17 TIME Command 

This command reads the time following the TIME command and copies it to the 
time buffer in the nucleus area ( 404 1). A subroutine at 52EA is called to process 
the time declaration. The operation of this subroutine is discussed in Section 9.6. 

Following is the code used for TIME command processing: 



Figure 9.57 SYS6 Code From 52B1 to 52C4 



* 

* 

if 






TIME Routine 


52B1 


0E3A 


LD 


C f 3AH 


52B3 


CDEA52 


CALL 


52EAH 


52B6 


C2D352 


JP 


NZ,52D3H 


52B9 


21DC52 


LD 


HL f 52DCH 


52BC 


114140 


LD 


DE,4041H 


52BF 


010300 


LD 


BC,0003H 


52C2 


EDB0 


LDIR 




52C4 


C9 


RET 





C = : (only valid terminator) 

Process time. Leave in 52DC-52DE 

Go if anything but number or : 

Addr of local buffer containing time 

Addr of time buffer in system area 

Number of bytes to move 

Move time to system area 

Ret to SYS6 to read next command 



9.18 VERIFY Command 

This command enables or disables a verify (read) after all write operations. It 
begins by calling a subroutine in SYSl to parse the ON/OFF option of the 
command, and depending on the option present, modifies the address of the 
WRITE vector in the nucleus to jump to either the WRITE subroutines or the 
VERIFY subroutines. The folowing code is used for this command. 



* 

* 



Figure 9.58 SYS6 Code From 5504 to 5512 and 60 CD to 60D8 
Verify Command Processing 



5504 CDA051 CALL 51A0H 

5507 218B47 LD HL,478BH 

550A 2803 JR Z,550FH 

550C 21A847 LD HL,47A8H 



SYSl routine to check for ON/OFF 

Turn verify flag ON or OFF 

Jump if VERIFY (OFF) 

Move addr of VRFY routine in nucleus 

Listing Continued . . . 
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. . . Continued Listing 






550F 223A44 


LD 


(443AH) ,HL 


5512 C32D40 

* 
it 


JP 


402DH 


* 

60CD 218B47 


LD 


HL,478BH 


60D0 2803 


JR 


Z,60D5H 


60D2 AF 


XOR 


A 


60D3 3C 


INC 


A 


60D4 B7 


OR 


A 


60D5 325E48 


LD 


(485EH) f A 


60D8 C9 


RET 





to addr field of WRITE jump vector 
Done. Ret to SYS1 for next command 



Address of WRITE routine in nucleus 

Go clear verify flag if (OFF) option 

Zero A f clear status flags 

Load 1 into A (auto verify writes) 

Set status flags non-zero 

Save verify flag in nucleus 

Return to caller 
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10.0 BOOT/SYS 

BOOT/SYS is the program used to load the nucleus routine SYSO/SYS. It is 
loaded and executed by LEVEL II if disks are detected during RESET processing. 

BOOT/SYS is an absolute core image program residing on sector of track 0. 
Since it is a core image program (in fact it is the only one in TRSDOS), BOOT/SYS 
can be read directly into memory and executed. Following is the LEVEL II code 
used to load BOOT/SYS 



Figure 10.1 LEVEL II BASIC Code From to 2, 66 to 72 and 674 to 6C9 



0000 F3 


DI 




0001 AF 


XOR 


A 


0002 C37406 


JP 


0674H 


0066 310006 


LD 


SP.0600H 


0069 3AEC37 


LD 


A,(37ECH) 


006C 3C 


INC 


A 


006D FE02 


CP 


02 H 


006F D20000 


JP 


NC.0000H 


0072 C3CC06 


JP 


06CCH 


0674 D3FF 


OUT 


(OFFH).A 
HL.06D2H 


0676 21D206 


LD 


0679 110040 


LD 


DE,4000H 


067C 013600 


LD 


BC.0036H 


06 7 F EDB0 


LDIR 




0681 3D 


DEC 


A 



Power on IPL entry -Turn off clock/disk interrupts 

Clear A-reg, status 

Go to beginning of IPL sequence 



Reset IPL entry 

Get controller status 

Test for controller present 

Status usually FF if no EI 

NC if controller addressable. Join common IPL 

No disk go to BASIC 'READY' prompt 



to cassette ************** video controller **** 

Addr. of video/keyboard/printer DCB's 

Start of communications region 

Setup for block move 

Move 6D2-707 to 4000-4035 

Change value being sent to port FF to FFFD, . . . 

Listing Continued . . . 
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. . . Continued Listing 




0682 3D 


DEC 


A 


0683 20F1 


JR 


NZ,0676H 


0685 0627 


LD 


B.2 7H 


0687 12 


LD 


(DE),A 


0688 13 


INC 


DE 


0689 10FC 


DJNZ 


0687H 


06 8B 3A4038 


LD 


A,(3840H) 


06 8E E604 


AND 


04H 


0690 C27500 


JP 


NZ,0075H 


0693 317D40 


LD 


SP,407DH 


0696 3AEC37 


LD 


A,(37ECH) 


0699 3C 


INC 


A 


06 9A FE02 


CP 


02 H 


06 9C DA7500 


JP 


C,0075H 


06 9F 3E01 


LD 


A,01H 


06A1 32E137 


LD 


(37E1H),A 


06A4 21EC37 


LD 


HL.37ECH 


06A7 11EF37 


LD 


DE.37EFH 


06AA 3603 


LD 


(HL),03H 


06AC 010000 


LD 


BC.0OO0H 


06AF CD6000 


CALL 


0060H 


06B2 CB46 


BIT 


00H,(HL) 


06 B4 20FC 


JR 


NZ.06B2H 


06 B6 AF 


XOR 


A 


06B7 32EE37 


LD 


(37EEH),A 


06 BA 010042 


LD 


BC.4200H 


06 BD 3E8C 


LD 


A,8CH 


06BF 77 


LD 


(HL),A 


06C0 CB4E 


BIT 


01H,(HL) 


06C2 28FC 


JR 


Z.06C0H 


06C4 1A 


LD 


A,(DE) 


06C5 02 


LD 


(BC),A 


06C6 0C 


INC 


C 


06C7 20F7 


JR 


NZ.06C0H 


06C9 C30042 


JP 


4200H 



FFFB, .... 

Go thru this 128 times 

to A 

- to 4036-4062 

- Bump destination pntr 

- Go if not done 

Test keyboard for BREAK 

BREAK key hit 

Go if BREAK 

New stack area 

Load disk status 

Test for Expansion Interface 

— - and disk drive 

Go if no disk 

- Unit select mask for drive 

Select drive 

Addr of diBk command / status register 

Addr of disk data register 

3 to disk command register 

Delay count 

Delay for approx 3 seconds 

Test if controller busy, 

Loop till not busy 

to A 

to sector register 

BC » addr of buffer area 

A ■ read command 

Read sector 0, track into 4200 - 4455 

Test if data ready 

Go if no data avail 

Get next byte from disk 

Transfer data to 4200+ 

Bump buffer pntr 

Go if not 256 bytes 

Done, transfer to TRSDOS loader 



restore, position 
:to track 



Immediately after the load operation completes, LEVEL II passes control to 
BOOT/SYS, which in turn will load SYS0/SYS. This process is more complex than 
the loading of BOOT/SYS for several reasons. First, the disk address for SYS0 is 
not fixed. Therefore, the directory entry for SYS0 must be read in order to 
determine its disk residency address. Second, SYS0/SYS contains loader control 
codes which must be intrepreted by BOOT/SYS. This means SYS0 cannot simply 
be read into memory. It must be read sector by sector into a buffer so the control 
codes can be separated from the binary image of the program. 

The code for BOOT/SYS occupies locations 4200 - 42FF while its buffer 
resides at 4D00 - 4DFF. Both of these address ranges are within SYS0; however, 
those regions are used by S YS0 as sector buffers, so there will be no conflict during 
the load operation. Nonetheless, this practice is unusual, and it could present 
problems if either BOOT/SYS were extended or the sector buffers were used to 
carry constants or code to be used during the initialization process. 
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Execution of BOOT/ SYS begins at 4200. The instructions from 4200 - 4202 are 
confusing and serve no purpose. Byte 2 contains the directory track number. Other 
parts of the system may read the boot loader just for the directory track number. 
Byte is non-zero during BACKUP operations. In any case, these instructions are 
benevolent and do not effect the remainder of the code. 



Memory usage by BOOT/SYS is shown below: 



Figure 10.2 BOOT/SYS Memory Residency 



0000 - 
4000- 
41FF- 


LEVEL II 


SYSO 


4200- 
42FF- 

4CFF- 


BOOT/SYS 


SYSO 


4D00 - 
4DFF- 


BOOT 
SECTOR 
BUFFER 


4E00 - 
51FF- 

t"FFF I 


SYSO 


AVAILABLE 
MEMORY 



will be loaded by BOOT/SYS 



' will be loaded by BOOT/SYS 



will be loaded by BOOT/SYS 



10.1 BOOT/SYS Execution 

Execution of BOOT/SYS begins at 4200. The instructions from 4200 - 4202 
are confusing and serve no purpose. This confusion was either a deliberate effort 
to thwart intrepretation of the code or the design of the boot loader was changed 
at some point, and those instructions were never removed. In any case, they are 
benevolent and do not effect the remainder of the code. 

Meaningful processing begins at 4203 with a Disable Interrupt instruction 
followed by code to initialize the stack pointer and clear the screen. Interrupts 
must be inhibited because Programmed I/O (PIO) instructions are used to read 
the disk during the load operation. Interrupts could disrupt the synchronization 
between the PIO instructions and the disk controller, causing data to be lost. 

Next, drive zero is selected, and the registers are initialized for a call to a 
subroutine at 42AA to read the directory sector containing the entry for SYSO. 
Note, this code assumes the directory entry for SYSO will occupy sector four of the 
directory track. 

After control returns from the read subroutine, a test for disk errors is made. If 
any occurred, the message 'DISK ERROR' is displayed and a HALT instruction is 
executed. 
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If no errors were detected, the first byte of the directory sector is tested to 
determine if an active entry is present. If not, the message 'NO SYSTEM' is 
displayed and a HALT instruction is executed. 

Otherwise, the entry is assumed to belong to SYSO. At this point, the alternate 
register set is initialized with the beginning track number and sector offset for 
SYSO. Arithmetic to translate the sector offset into the starting sector number for 
the file is also performed. In addition, the alternate BC register pair is initialized 
to indicate an empty sector buffer. Following these operations, the main loop of 
the boot loader is entered. The code used for these operations is shown below. 



Figure 10.3 BOOT/SYS Code From 4200 to 423D 



4200 00 

4201 FEll 
4203 F3 



4204 
4207 
420A 
420D 
420F 
4212 
4215 
4216 
4218 
421B 
421E 
4220 
4223 
4225 
4228 

* 
* 

* 
* 
* 

422A D9 
422B 2A164D 
422E 55 
422F 7C 

4230 07 

4231 07 

4232 07 

4233 E607 

4235 67 

4236 07 

4237 07 



31FC41 

21E242 

CD9A42 

3E01 

32E137 

3A0242 

57 

1E04 

01004D 

CDAA42 

2070 

3A004D 

E610 

21E542 

2869 

Initializ 
byte rout 
the track 
read. BC 
initializ 
buffer. 



NOP 

CP 

DI 

LD 

LD 

CALL 

LD 

LD 

LD 

LD 

LD 

LD 

CALL 

JR 

LD 

AND 

LD 

JR 



11H 



SP,41FCH 

HL,42E2H 

4 29 AH 

A,01H 

(37E1H) ,A 

A, (4202H) 

D,A 

E,04H 

BC,4D00H 

42AAH 

NZ,4290H 

A, (4D00H) 

10H 

HL,42E5H 

Z,4293H 



BOOT/SYS flag. Used by BACKUP 

Directory track number 

Disk I/O timing must 

not be interrupted 

Initialize stack pointer address 

Address of "CLS" video routine 

Issue video commands 

Unit select mask for drive 

Select drive 

Fetch directory track number 

Put it in the D register 

Put SYS0 directory no. in E 

Local buffer address 

Get SYS0 dir entry (trk 11/sec 4) 

Jump if any error during READ 

Get 1st byte of SYS0 dir entry 

Isolate entry occupied flag 

Address of DISK ERROR message 

If no entry then go display NO SYSTEM 



e alternate DE and BC registers for get next 
ine from sector buffer at 4275. DE contains 

and sector number for the next sector to be 
contains the current buffer address. This code 
es BC to 4DFF which signals an empty sector 



EXX 

LD 

LD 

LD 

RLCA 

RLCA 

RLCA 

AND 

LD 

RLCA 

RLCA 



HL, (4D16H) 

D r L 

A r H 



07 H 
H,A 



Get alternate register set 

Fetch 1st GAP for SYS0/SYS 

D = track number for SYS0 

A = byte count f sector offset 

Isolate bit 5 (sector offset) 

and position it 

over bit so we can 

isolate bit 5 (bits 6/7 are zero) 

Put in H to multiply micro-style 

Sector offset bit * 2 

times 4 

Listing Continued . 
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. . . Continued Listing 






4238 84 


ADD 


A,H 


4239 5F 


LD 


E,A 


423A 01FFAD 


LD 


BC,4DFFH 


423D D9 


EXX 





times 5 gives 1st sector no. (0/5) 

Starting sector no. to E 

Signal empt'y buffer to force read 

on next buffer access 

Switch back to main register set 



The main loop for loading the nucleus is quite simple. The binary file of SYSO 
is read on a byte-by-byte basis. All control codes except 01 and 02 are discarded. 

When an 01 control code is encountered, the next *n' bytes of data are read and 
stored at the address embedded in the control stream. Both the 'n' byte count and 
the load address for the file follow the 01 control code. 

An 02 control code is treated as an end of file. When this code is encountered, 
control is passed to the address following the control code. In the case of SYSO, this 
address will be 4E00, which is the beginning of the system initialization for 
TRSDOS. 

The main loop for loading SYSO begins at 423E. It relies on a subroutine at 
4275 to return the next byte from the sector buffer for the SYSO file. The initial 
call to this subroutine is made to get a control byte. Subsequent calls are made to 
fetch supporting control bytes and data bytes. 

Depending on the initial byte fetched, control either falls into the code at 4244 
or branches to 425B. After the processing for the particular control byte has 
completed, the main loop is re-entered at 423E. Following is the code used for the 
main loop. 



Fig 


ure 10.4 BO 


OT/SYS Cod 


e From 423E to 4 


* 

* 
* 







Main Loop 


423E 


CD7542 


CALL 


4275H 


4241 


3D 


DEC 


A 


4242 


2017 


JR 


NZ,425BH 


4244 


CD7542 


CALL 


4275H 


4247 


47 


LD 


B,A 


4248 


CD7542 


CALL 


4275H 


424B 


6F 


LD 


L,A 


424C 


05 


DEC 


B 


424D 


CD7542 


CALL 


4275H 


4250 


67 


LD 


H f A 


4251 


05 


DEC 


B 


4252 


28EA 


JR 


Z f 423EH 


4254 


CD7542 


CALL 


4275H 


4257 


77 


LD 


(HL) f A 


4258 


23 


INC 


HL 


4259 


18F6 


JR 


4251H 



Get next byte from sector buffer. 

Must be a loader code 

Is it code 1? (load data follows) 

Jump if not control code 1 

else get no. of bytes to load 

Put load count in B for DJNZ instr. 

Get LSB of load address 

Form load address in HL 

Count LSB as a byte loaded 

Get MSB of load address and 

Form load address in HL 

Count MSB as a byte loaded 

Go if no more bytes to load 

Get a byte of load data 

Save it at current load address 

Bump load address and 

loop till byte count exhausted 

Listing Continued . . . 
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. . . Continued Listing 

425B 3D DEC A 

425C 280B JR Z,4269H 

425E CD7542 CALL 4275H 

4261 47 LD B,A 

4262 CD7542 CALL 4275H 
4265 10FB DJNZ 4262H 
4267 18D5 JR 423EH 

4269 CD7542 CALL 4275H 
426C CD7542 CALL 4275H 
426F 6F LD L,A 

4270 CD7542 CALL 4275H 

4273 67 LD H,A 

4274 E9 JP (HL) 



Test for code 2 (transfer addr flag) 

Jump if control code 2 

Not code 1 or 2 so ignore it and 

get the byte count (bytes to discard) 

Fetch a byte to discard 

Go get another till all discarded 

Go get next control code 

Code 2. Skip over byte count 

Fetch LSB of transfer address 

Move it to L 

Fetch MSB of transfer address 

Form transfer addresss in HL and 

jump (entry point for SYS0/SYS 



The subroutine at 4275 fetches the next data byte from the sector buffer and 
returns it to the caller. The alternate register set is used by this subroutine; 
however, the data byte is returned in the A register of the primary register set. 

A pointer into the sector buffer is maintainted in the BC register pair. Before a 
byte is fetched from the buffer, the C register is incremented to the next position 
in the buffer. If the buffer is empty (ZERO status), control falls into the code at 
4279, where the next sector from the file is read. 

If the buffer is not empty, the next byte is fetched, and control returns to the 
caller. 

When the buffer is empty, the next sector is read from the file through a call to 
a subroutine at 42AA. Upon return from this call, a test for disk errors is made. If 
any errors occurred, control passes to 4290, where the message 'DISK ERROR' is 
displayed and a HALT instruction is executed. 

If there were no disk errors, the sector number is incremented and compared to 
a 10. This is a test for track overflow. If the sector number has reached 10, it is reset 
to zero, and the track number is incremented. Note, this code assumes SYSO 
occuppies consecutive tracks, and is recorded in signle-density (10 sectors per 
track vs. 18 sectors per track). After the sector and track numbers have been 
updated, the pointer to the sector buffer is reset to zero (full buffer), and the first 
byte from the buffer is loaded before returning to the caller. 

Following is the code used for the subroutines at 4275 and 42AA: 



Figure 10.5 BOOT/SYS Code From 4275 to 422F and From 42AA to 42E1 



* 
* 
* 

4275 D9 

4276 0C 

4277 2014 
4279 C5 
427A 3E01 



Gets Next Byte From Sector Buffer 

EXX Switch to alternate register set 

INC C Bump buffer addr to next byte 

JR NZ,428DH Jump if sector buffer not empty 

PUSH BC Save buf addr, prepare to read sector 

LD A,01H Unit select mask for drive 

Listing Continued . . . 
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427C 


32E137 


LD 


(37E1H) , A 


427P 


CDAA4 2 


CALL 


42AAH 


4282 


200C 


JR 


NZ r 4290H 


4284 


CI 


POP 


BC 


4285 


1C 


INC 


E 


4286 


7B 


LD 


A,E 


4287 


D60A 


SUB 


0AH 


4289 


2002 


JR 


NZ,428DH 


428B 


5F 


LD 


E,A 


428C 


14 


INC 


D 


428D 


0A 


LD 


A f (BC) 


428E 


D9 


EXX 




428F 


C9 


RET 




42AA 


C5 


PUSH 


BC 


42AB 


CDB242 


CALL 


42B2H 


42AE 


El 


POP 


HL 


42AF 


C8 


RET 


Z 


42B0 


44 


LD 


B,H 


42B1 


4D 


LD 


C f L 


42B2 


ED53EE37 


LD 


(37EEH) ,DE 


42B6 


21EC37 


LD 


HL,37ECH 


42B9 


361B 


LD 


(HL) ,1BH 


42BB 


F5 


PUSH 


AF 


42BC 


Fl 


POP 


AF 


42BD 


F5 


PUSH 


AF 


42BE 


Fl 


POP 


AF 


42BF 


7E 


LD 


A, (HL) 


42C0 


0F 


RRCA 




42C1 


38FC 


JR 


C r 42BFH 


42C3 


3688 


LD 


(HL) ,88H 


42C5 


D5 


PUSH 


DE 


42C6 


11EF37 


LD 


DE f 37EFH 


42C9 


C5 


PUSH 


BC 


42CA 


CI 


POP 


BC 


42CB 


180B 


JR 


42D8H 


42CD 


0F 


RRCA 




42CE 


300A 


JR 


NC,42DAH 


42D0 


7E 


LD 


A, (HL) 


42D1 


CB4F 


BIT 


01H,A 


42D3 


28F8 


JR 


Z r 42CDH 


42D5 


1A 


LD 


A r (DE) 


42D6 


02 


LD 


(BC),A 


42D7 


03 


INC 


BC 


42D8 


18F6 


JR 


42D0H 


42DA 


7E 


LD 


A, (HL) 


42DB 


E65C 


AND 


5CH 


42DD 


Dl 


POP 


DE 


42DE 


C8 


RET 


Z 


42DF 


36D0 


LD 


(HL) ,0D0H 


42E1 


C9 


RET 





Re-select to renew MOTOR ON cycle 

Read 1 sector (trk/sec no. in DE) 

Jump if any error during read 

Restore sector buffer address 

Bump sector number, then 

test to see if the last sector 

of the current track has been read 

Jump if it hasn't 

else reset sector no. to zero 

and bump current track number 

Get next byte from buffer (last byte 

if 428D not jumped to by 4277) 

Switch back to main register set 

and return to caller 



Save caller's BC (sec buf addr) 

Read sector specified in DE 

Caller's BC reg (sec buf addr) 

Return if no disk error 

Disk error, retry operation 

after restoring caller's BC 

Load track/sector regs in controller 

Addr of stat/cmd registers for disk 

Issue SEEK command 

Delay so controller 

has time to respond 

to the command 

before we ask for the status 

Fetch controller status 

Controller busy flag to carry flag 

Loop till controller not busy 

Give controller READ SECTOR command 

Save track/sector number 

Addr of controller's data register 

Delay for controller, so 

It can react to last command 

Simulate CALL 42D0 to get data 

byte (or OP done status bit) 

Controller busy status to carry 

Go if OP done (not busy status) 

Get status 

Test DATA READY status bit 

Jump if data not available 

Read a data byte from controller 

Save in sector buffer 

Bump sector buffer address 

Loop till controller not busy 

Fetch controller status 

Isolate error flags 

Restore track/sector address 

Ret if no error. If error occurred, 

stop controller with force interrupt 

and then return to caller 
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Nucleus Data Structures 



SYSO MEMORY MAP 



/TRSDOS TEMP STORAGE AREA 
JPT SERVICE ROUTINE LIST 
'THSDOS TEMP STORAGE AREA 



SECTOR BUFFER 



TRACK 



IISTORY TABLE 



DIRECTORY IRACK LIST 

LAST DRIVE SELECTED 

UNIT SELECT MASK 

Oca ADDRESS 

SECTOR BUFFER ADDRESS 

LAST OVERLAY REQUEST CODE 

SYSTEM CONDITION FLAGS 

RESERVED 

RETURN VECTOR WITH ZERO STATUS J 

DEBUG VECTOR 

COMMAND LINE BUFFER 



IEYBOARDDCB 
RESERVED 



;EYBOARD DRIVER ADDRESS 
HDEO DRIVER ADDRESS 
'HINTER DRIVER ADDRESS 
RESERVED 
VICE. IABLE 



1ESERVED 
(EYBOARD D 



CALLSYSI REQUEST CODE I 
CALLSYSI REQUEST CODE J 

^ALL SYS4 

;all sys^ 

iUD ADDRESS TO INTERRUPT " 
IEMQVE ADDRESS FROM INTE 
iEPLACE POINTER FOR CURRS 

REMOVE CURRENT TASK FRO*< 
.LL SYS1 REQUEST CODE A 
T VECTOR 

OPEN VECTOR 

CLOSE VECTOR 
L VECTOR 

LOAD FILE VECTOR 

LOAD FILE. IN SYSTEM DCH YE< 

R FAD VECTOR 
"'RITE VECTOR 

. iHIFY VECTOR 

REWIND VECTOR 

POSITION VECTOR 

BACKSPACE VECTOR 

"-■PTOENDOF FILE 



INTERRUPT LIST 



JD MESSAGE TO VIDEO 

SEND MESSAGE TO PRINTER 
DISPLAY CLOCK ON VIDEO 
DISPLAY DATE ON VIDEO 

CALL SYSI REQUEST CODE : 
CALLSYSI REQUEST CODE* 
SYSTEM DCBiJi> BYTES) 



CALL SYS4 (ERROR MESSAGE PROCESSOR) 

SYSTEM CODE 

DISPLAY ON VIDEO ROUTINE 



REMOVE CURRENT TASK FROM INTERRUPT LIST 
iEPLACE POINTER FOR CURRENT INTERRUPT TAS 
JL.OCK UPDATE ROUTINE (INTERRUPT TASK *Hi 

SELECT UNIT CODE 

ECT UNIT. POSITION TO TRACK 



SENI 



MD TO DRIVE 



E CALLS TO DISK DRIVER 

i OF POSITION/BACKSPACE/READ, WRIT! 



I/O SUPPORT R 



JLE ASSIGNMENT ROUTINE 

A DIRECTORY ENTRY 






ENTRY ADDRESS IN DIRECTORY SECTOR BUFFER 



LOAD FILE ROUTINi 
SYSTEM LOADED 



SECTOR BUFFER 



.TION CODE/OVERLAY LOAD AREA 
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DESCRIPTION OF 4300 REGION 



Nucleus Data Structures 



DEVICE ADDRESS 
TABLE 



DEVICE TABLE 



4300- 








4302- 




4303 - 




4304- 




4305- 




4306- 




4307- 




4308- 




4309- 




430A- 
















430E- 




430F- 




4310 - 








431 2 - 












4315- 












4318 - 




4358- 




4359 - 




435A- 




435B- 








435D- 




43bE- 




435F- 




4360- 












43AC- 




43 B6 - 




43B8- 
























43BE- 
















43C2 ~ 








43 C4 - 
























4JCA- 












43 CD - 
















43 D8 - 




43 FE - 




43FF- 





LAST TRACK SELECTED DRIVE 

LAST TRACK SELECTED DRIVE 1 

LAST TRACK SELECTED DRIVE 2 

LAST TRACK SELECTED DRIVE 3 

DIRECTORY TRACK NUMBER FOR DRIVE 

DIRECTORY TRACK NUMBER FOR DRIVE 1 

DIRECTORY TRACK NUMBER FOR DRIVE 2 

DIRECTORY TRACK NUMBER FOR DRIVE'S 

LAST DRIVE SELECTED 

UNIT SELECT MASK FOR CURRENT DRIVE 

!DCB ADDRESS 
SECTOR BUFFER ADDRESS 
LAST OVERLAY REQUEST CODE 
SYSTEM CONDITION FLAGS 
RESERVED 
RESERVED 
JP 4BA0/JP SBA4 (DISK BASIC LOAD) 

00 00 00 DEBUG INACTIVE 
JP400F DEBUG ACTIVE 

COMMAND LINE BUFFER 



- KEYBOARD DCB 



RESERVED (CONTAINS 0s| 



RESERVED (CONTAINS FFs t 



RESERVED 

DRIVE SELECT SUBROUTINE 

RESERVED 

KEYBOARD DRIVER ADDRESS 

VIDEO DRIVER ADDRESS 
PRINTER DRIVER ADDRESS 

RESERVED 
Kl 

KEYBOARD DRIVER ADDRESS 
DO' 

DISPLAY DRIVER ADDRESS 
PR' 
* PRINTER DRIVER ADDRESS 
00 LISTTERMINAIOH 

RESERVED 

EOF TEST SUBROUTINE 

KEYBOARD DRIVER 



■ RESERVED 
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Nucleus Data Structures 



404 D 






404 F 






4051 






4053 






4055 






4057 






4059 






405B 







INTERRUPT BIT 
INTERRUPT BIT 1 
INTERRUPT BIT 2 
INTERRUPT BIT 3 
INTERRUPT BIT 4 
INTERRUPT BIT 5 
INTERRUPT BIT 6 
INTERRUPT BIT 7 



ROUTINE 
ROUTINE 
ROUTINE 
ROUTINE 
ROUTINE 
ROUTINE 
ROUTINE 
ROUTINE 



ADDRESS 
ADDRESS 
ADDRESS 
ADDRESS 
ADDRESS 
ADDRESS 
ADDRESS t 
ADDRESS tt 



INTERRUPT SERVICE 
LIST 



4500 






4502 






4504 






4506 






4508 






450A 






450C 






450E 






4510 






4512 






4514 






4516 







TASK 1 ADDRESS 
TASK 2 ADDRESS 
TASK 3 ADDRESS 
TASK 4 ADDRESS 
TASK 5 ADDRESS 
TASK 6 ADDRESS 
TASK 7 ADDRESS 
TASK 8 ADDRESS (CLOCK DISPLAY) 

TASK 9 ADDRESS 

TASK 10 ADDRESS 

TASK 1 1 ADDRESS 

TASK 12 ADDRESS (TRACE DISPLAY) 



INTERRUPT TASK LIST ADDRESSES 



4300 
4301 
4302 
4303 



* - - - - 



TRACK HISTORY 
TABLE 



LAST TRACK REFERENCED DRIVE 
LAST TRACK REFERENCED DRIVE 1 
LAST TRACK REFERENCED DRIVE 2 
LAST TRACK REFERENCED DRIVE 3 
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Nucleus Data Structures 



4304 
4305 
4306 
4307 



DIRECTORY TRACK NUMBER DRIVE 
DIRECTORY TRACK NUMBER DRIVE 1 
DIRECTORY TRACK NUMBER DRIVE 2 
DIRECTORY TRACK NUMBER DRIVE 3 



DIRECTORY TRACK 
LIST 



| Disk interrupt 



■(■| Clock interupt 



4308 
4309 
430A 
430C 
430E 
430F 
4310 
4311 



LAST DRIVE SELECTED VALUE 

LAST DRIVE SELECTED MASK 

BUFFER ADDRESS 

DCB ADDRESS 

LAST OVERLAY LOAD REQUEST 

SYSTEM CONDITION FLAGS 

RESERVED 

RESERVED 



UNIT FLAGS AND ADDRESSES 



4040 


























4041 


















4042 


















4043 


















4044 


















4045 


















4046 


















4047 


























4049 


















404B 


























404C 



















INTERRUPT TASK LIST INDEX 
SECONDS 



MINUTES 
HOURS 
YEAR 
DAY 

MONTH 

UTILITY LOAD ADDRESS 

MEMORY SIZE 
INTERRUPT STATUS BYTE 
INTERRUPT MASK 



SYSTEM CLOCK 



SYSTEM DATE 



LOCAL STORAGE FOR NUCLEUS 
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Nucleus Data Structures 



SYSTEM DCB (LONG) 



SYSTEM DCB (SHORT) 



4480 




4481 




4482 




4483 




4484 




4485 




4486 




4487 




4488 
4489 
448A 
448B 
448C 

448 F 
4490 
4491 
4492 
4493 
4494 
4495 
4496 
4497 
4498 
4499 
449A 
449B 
449C 
449D 
449E 

449 F 





44A0 

44A1 

44 A2 

44A3 

44A4 

44A5 

44A6 

44 A7 

44A8 

44A9 

44AA 

44AB 

44AC 

44AD 

44AD 

44AE 

44AF 
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SYSO Entry Points 



SYS0 ENTRY POINTS 



Entry points for SYS0 are divided into two groups. The 
first group consists of nucleus subroutines which are entered 
indirectly through calls to LEVEL II ROM addresses. 

Group 2 consists of nucleus addresses which are called 
directly. There is some overlap between Group 1 and Group 2 
functions. For example, the Group 1 call to 402D is equivalent 
to the Group 2 call to 4400; however, a differant calling 
sequence is used. 
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SYSO Entry Points 



Address 



Contents 



SYS0 ENTRY POINTS (GROUP 1) 
Calling Sequence Description 



400C 



JP 4BA2H 



CALL LOAD 









LOAD LD 


A,FCODE 








RST 


28H 


400F 


JP 


44B4H 


RST 


30H 


4012 


JP 


4518H 


RST 


38H 



402D 



JP 4400H 



CALL SYS11 



Loads and executes the overlay processor for the 
function code in the A-register . Note, the 
return address saved by the RST 28H instruction 
is lost during processing at 4BA2; therefore, 
this calling sequence must be used from a 
CALL'ed subroutine. 

Loads and executes the DEBUG utility. Control 
will be returned to the next instruction. 

Executes the nucleus interrupt service routine. 
If no interrupts are pending at the time of 
entry, control returns immediately to the next 
instruction. 

Loads and executes SYS1/SYS with option code 01. 



4030 



LD A,0A3H 
RST 28H 



SYS11 JP 402DH 
CALL SYS11 



Loads and executes SYS1/SYS with option code 02. 



SYS12 JP 



4030H 



4033 



JP 44BB 



LD DE,DCB 
CALL 13H 



or 



LD A, VALUE 
LD DE,DCB 
CALL 1BH 



Read next character from disk file. DE contains 
the DCB address for an OPEN'ed file. Data 
character is retruned in A-register with ZERO 
status if no error. CARRY indicates end of file. 
A NON-ZERO status is accompanied with a TRSDOS 
error code in the A-register; uses all registers 
except BC. 

Write the character in the A-register to the 
OPEN'ed disk file specified by the DCB address 
in DE. On return, a NON-ZERO status indicates an 
error. The A register will contain a TRSDOS 
error code; uses all registers except BC. 
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SYSO Entry Points 



Address Contents 



SYS0 ENTRY POINTS (GROUP 2) 
Calling Sequence Description 



4400 


LD 
RST 


A,93H 
28H 


CALL 


4400H 


4405 


LD 
RST 


A,0B3H 
28H 


CALL 


4405H 


4409 


JP 


44B0H 


LD 
CALL 


A,ECODE 
4409H 


440D 


JP 


44B4H 


CALL 


440DH 


4410 


JP 


4596H 


LD 
LD 
CALL 


A, INDEX 
DE, ADDR 
4410H 


4413 


JP 


4593H 


LD 
CALL 


A, INDEX 
4413H 


4416 


JP 


45A5H 


LD 
CALL 


DE,ADDR 
4416H 


4419 


JP 


458EH 


CALL 


4419H 


441C 


LD 
RST 


A,0C3H 
28H 


LD 
LD 
CALL 


DE,S0URC1 

HL,DCB 

441CH 


4420 


LD 
RST 


A,0A4H 
28H 






4424 


LD 
RST 


A,94H 
28H 






4428 


LD 
RST 


A,95H 
28H 






442C 


LD 
RST 


A,0A5H 
28H 






4430 


JP 


4C16H 


LD 


DE.FNAME 



4433 



4436 



JP 4C06H 



JP 476DH 



CALL 443 0H 



LD DE, FNAME 
CALL 443 3H 



Load and execute SYS1/SYS, option code 01. 



Load and execute SYS1/SYS, option code 03. 



Loads and executes SYS4/SYS to process the error 
code in the A-register. 

Loads and executes the DEBUG utility. 

Stores the address given in the DE in the 
Interrupt Task List table for the index 
specified in the A-register. 

Stores the address of a RET instruction in the 
Interrupt Task List table for the index 
specified in the A-register. 

Replace first pointer in Interrupt Task List 
table for current interrupt process with 
address in DE. 

Replace first pointer in Interrupt Task List 
table for current interrupt process with address 
of a RET instruction. 

Loads and executes SYS1/SYS, option code 04. 
Copies and validates file name specified by DE 
into DCB area given in HL. 

TRSDOS INIT call. See TRSDOS & DISK BASIC 
REFERENCE MANUAL (RS Catalog No. 26-2104) 
pages 6-8. 

TRSDOS OPEN Call. See TRSDOS & DISK BASIC 
REFERENCE MANUAL, pages 6-9. 

TRSDOS CLOSE Call. See TRSDOS & DISK BASIC 
REFERENCE MANUAL, pages 6-11. 

-TRSDOS KILL Call. See TRSDOS & DISK BASIC 
REFERENCE MANUAL, pages 6-11. 

Opens and loads binary file specified by the 
address in DE. A successful load is indicated by 
a ZERO status. The transfer address is returned 
in the HL, all registers are used. The system 
sector buffer at 4200 is used during the load 
operation. 

Opens, loads, and executes the binary file 
specified by the address in DE. If the DEBUG 
flag is active, DEBUG is executed prior to 
entering the loaded module. 

TRSDOS READ Call. See TRSDOS & DISK BASIC 
REFERENCE MANUAL, pages 6-9. 
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SYSO Entry Points 



Address Contents 



SYS0 ENTRY POINTS (GROUP 2) 
Calling Sequence Description 



4439 



443C 



4445 



4448 



4470 



JP 478BH 



JP 47A8H 



443F JP 4756H 
4442 JP 4700H 



JP 4737H 



JP 475FH 



4467 JP 44CFH 



446A JP 44DFH 



446D JP 4CB7H 



JP 4CD2H 



LD DE, DCB 
CALL 443FH 



LD DE, DCB 
CALL 4445H 



LD DE, DCB 
CALL 4448H 



LD HL, M56 
CALL 446 7 H 



LD HL, M5G 
CALL 446AH 



LD HL, aTIME 
CALL 446DH 



LD HL, ADATE 
CALL 4470H 



4473 


LD A,0D3H 
RST 28H 


LD 
LD 
CALL 


DE,FNAME 
HL, SUFFIX 
4473H 


4476 


LD A,0E3H 
RST 28H 


LD 
LD 
CALL 


HL, CSTRI] 
DE, 0LIST 
4476H 


44B0 


PUSH AF 
DD A,86H 
RST 28H 


LD 
CALL 


A, ERRCD 
44B0H 


44B4 


PUSH AF 
LD A,87H 
RST 28 


CALL 


44B4H 



TRSDOS WRITE Call. See TRSDOS & DISK BASIC 
REFERENCE MANUAL, pages 6-10. 

TRSDOS VERIFY Call. See TRSDOS & DISK BASIC 
REFERENCE MANUAL, pages 6-10. 

Rewinds the opened disk file specified by DE. 

TRSDOS POSN call. See TRSDOS & DISK BASIC 
REFERENCE MANUAL, pages 6-9. 

Backspace file 1 record. DE contains DCB address 
of the OPEN'ed file to be backspaced. All 
registers except AF are preserved. 

Position DCB pointers to end of file for the 
file specafied by DCB. File must be OPEN'ed. All 
registers except AF are preserved. 

Display message specified by the address in HL 
on the video. Message must be terminated by an 
03, or 0D. Uses A-register. 

Sends message specified by address in HL to 
printer. Message must be terminated by 03 or 0D. 
Uses all registers. 

Returns the system clock in ASCII to the address 
specified in HL. Format of the total time 
returned is: 

HH:MM:SS 

Uses all registers 

Returns the system date in ASCII to the address 
specified in HL. Format of the date returned is: 

MM/DD/YY 
Uses all registers. 



Adds suffix specified by HL onto file name, 
specified by DE by calling SYS1/SYS option 05. 
Uses all registers. 

HL, CSTRING Calls SYS1/SYS option code 06 to parse the 

command string specified by HL using the options 
list specified by DE. Uses all registers 

Calls SYS4/SYs to process the error code in the 
A regaster. Uses all registers. 



Loads and executes the DEBUG utility. 
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SYS1 DATA STRUCTURES 



SYS1 COMMAND LIST 



SYS1 Data Structures 



4EA4 


DEFM 


4EAA 


DEFW 


43AC 


DEFM 


4EB2 


DEFW 


4EB4 


DEFM 


4EBA 


DEFW 


4EBC 


DEFB 



'BASIC 

514CH 

1 DEBUG ■ 

5162H 

1 TRACE • 

5191H 





TRSDOS COMMAND LIST 



4EBD 


DEFM 


4EC3 


DEFW 


4EC5 


DEFM 


4ECA 


DEFW 


4ECD 


DEFM 


4ED3 


DEFW 


4ED5 


DEFM 


4EDB 


DEFW 


4EDD 


DEFM 


4EE3 


DEFW 


4EE5 


DEFM 


4EEB 


DEFW 


4EED 


DEFM 


4EF3 


DEFW 


4EF5 


DEFM 


4EFB 


DEFW 



•APPEND' 

4E90H 

'ATTRIB' 

4E90H 

'AUTO' 

4E90H 

1 CLOCK ' 

4E90H 

'COPY' 

4E90H 

1 DATE ' 

4E90H 

'DEVICE' 

4E90H 

•DIR' 

4E90H 
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SYS1 Data Structures 



TRSDOS COMMAND LIST 



4EFD 


DEFM 


'DUMP' 


4F03 


DEFW 


4E90H 


4F05 


DEFM 


'FREE' 


4F0B 


DEFW 


4E90H 


4F0D 


DEFM 


'KILL' 


4F13 


DEFW 


4E90H 


4F15 


DEFM 


'LIB' 


4F1B 


DEFW 


4E90H 


4F1D 


DEFM 


'LIST' 


4F23 


DEFW 


4E90H 


4F25 


DEFM 


'LOAD' 


4F2B 


DEFW 


4E90H 


4F2D 


DEFM 


1 PRINT ' 


4F33 


DEFW 


4E90H 


4F35 


DEFM 


'PROT' 


4F3B 


DEFW 


4E90H 


4F3D 


DEFM 


' RENAME ' 


4F43 


DEFW 


4E90H 


4F45 


DEFM 


'TIME' 


4F4B 


DEFW 


4E90H 


4F4D 


DEFM 


'VERIFY' 


4F53 


DEFW 


4E90 


4F55 


DEFB 
PARAMETER SEPARATOR LIS1 




1 


4FA7 


DEFM 


'TO' 


4 FAD 


DEFW 





4FAF 


DEFM 


'ON' 


4FB6 


DEFW 





4FB7 


DEFM 


'OVER' 


4FBD 


DEFW 





4FBF 


DEFB 





SYSTEM MESSAGES AND FILE SUFFIXES 


51B5 


DEFM 


'END' 


51B8 


DEFB 


0AH 


51B9 


DEFM 


'DOS READY' 


51C2 


DEFB 


0DH 


51C3 


DEFM 


' WHAT? ' 


51C8 


DEFB 


0DH 
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SYS4 DATA STRUCTURES 



ERROR MESSAGES 





ADDRESS 


MESSAGE 


4F36 


DEFB 


0AH 


4F37 


DEFM 


'*** ERRCOD * XX, • 


4F46 


DEFB 


03 


4F47 


DEFB 


■ *** i 


4F4A 


DEFB 


0DH 


4F4B 


DEFB 


0C6@ 


4F4C 


DEFM 


•<DEVICE = *XX> 


4F58 


DEFB 


0DH 


4F59 


DEFB 


C5H 


4F5A 


DEFM 


■<FILE - NNNNNNNN/EEE:D> 


4F6F 


DEFB 


0DH 


4F70 


DEFB 


C3H 


4F71 


DEFM 


'REFERENCED AT X 1 


4F80 


DEFB 


27K 


4F81 


DEFB 


03H 


4F82 


DEFB 


27 H 


4F83 


DEFB 


0DH 
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SYS4 Data Structures 



ERROR CODE INDEX LIST 



ADDRESS 


LSB OF WORD 


ERROR CODE 






INDEX LIST ADDR. 




4F84 


DEFB 


5BH 


00 


4F85 


DEFB 


5DH 


01 


4F86 


DEFB 


62H 


02 


4F87 


DEFB 


66H 


03 


4F88 


DEFB 


6 AH 


04 


4F89 


DEFB 


6 EH 


05 


4F8A 


DEFB 


74H 


06 


4F8B 


DEFB 


79H 


07 


4F8C 


DEFB 


7 EH 


08 


4F8D 


DEFB 


81H 


09 


4F8E 


DEFB 


86H 


10 


4F8F 


DEFB 


8AH 


11 


4F90 


DEFB 


8 EH 


12 


4F91 


DEFB 


92H 


13 


4F92 


DEFB 


98H 


14 


4F93 


DEFB 


9DH 


15 


4F94 


DEFB 


A0H 


16 


4F95 


DEFB 


A4H 


17 


4F96 


DEFB 


A7H 


18 


4F97 


DEFB 


AAH 


19 


4F98 


DEFB 


ADH 


20 


4F99 


DEFB 


B0H 


21 


4F9A 


DEFB 


B3H 


22 


4F9B 


DEFB 


B6H 


23 


4F9C 


DEFB 


B9H 


24 


4F9D 


DEFB 


BDH 


25 


4F9E 


DEFB 


C0H 


26 


4F9F 


DEFB 


C3H 


27 


4FA0 


DEFB 


C6H 


28 


4FA1 


DEFB 


CAH 


29 


4FA2 


DEFB 


CFH 


30 


4FA3 


DEFB 


D3H 


31 


4FA4 


DEFB 


D6H 


32 


4FA5 


DEFB 


D9H 


33 


4FA6 


DEFB 


DDH 


34 


4FA7 


DEFB 


E1H 


35 
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SYS4 Data Structures 



ERROR CODE INDEX LIST 



ADDRESS 


LSB 


OF WORD 


ERROR CODE 








INDEX 


LIST ADDR. 






4FA8 


DEFB 






E3H 


36 




4FA9 


DEFB 






E8H 


37 




4FAA 


DEFB 






EDH 


38 




4 FAB 


DEFB 






F0H 


39 




4FAC 


DEFB 






F0H 


40 \ 




4 FAD 


DEFB 






F0H 


41 




4FAE 


DEFB 






F0H 


42 / 




4FAF 


DEFB 






F0H 


43 f 


Not 


• 


DEFB 






• 


• / 


Implemented 


• 


DEFB 






• 


• V 




• 


DEFB 






• 


• 1 




4FC3 


DEFB 






• 


63 / 





ADDRESS 



WORD ADDRESS LIST 
WORD ADDRESS 



WORD 



4FC4 


DEFW 


5030H 


NO 


4FC6 


DEFW 


5032H 


ERROR 


4FC8 


DEFW 


5037H 


FORMAT 


4FCA 


DEFW 


503DH 


PARITY 


4FCC 


DEFW 


5043H 


DURING 


4FCE 


DEFW 


5049H 


HEADER 


4FD0 


DEFW 


504FH 


DATA 


4FD2 


DEFW 


5053H 


SEEK 


4FD4 


DEFW 


5057H 


READ 


4FD6 


DEFW 


505BH 


WRITE 


4FD8 


DEFW 


5060H 


LOST 


4 FDA 


DEFW 


5064H 


NOT 


4FDC 


DEFW 


5067H 


ATTEMPTED TO 


4FDE 


DEFW 


5073H 


LOCKED/DELETED 


4FE0 


DEFW 


5081H 


SYSTEM 


4FE2 


DEFW 


5087H 


DIRECTORY 


4FE4 


DEFW 


5090H 


MEMORY 


4FE6 


DEFW 


5096H 


ON 


4FE8 


DEFW 


5098H 


DISK 


4FEB 


DEFW 


509CH 


DISKETTE 


4FEC 


DUFW 


50A4H 


FAULT 


4FEE 


DEFW 


50A9H 


PROTECTED 


4FF0 


DEFW 


50B2H 


ILLEGAL 


4FF2 


DEFW 


50B9H 


LOGICAL 


4FF4 


DEFW 


50C0H 


NUMBER 
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ADDRESS 



WORD ADDRESS LIST 



WORD ADDRESS 



WORD 



4FF6 


DEFW 


50C6H 


FILE 


4FF8 


DEFW 


50CAH 


RECORD 


4FFA 


DEFW 


50D0H 


END 


4FFC 


DEFW 


50D3H 


OF 


4FFE 


DEFW 


50D5H 


OUT 


5000 


DEFW 


50D8H 


RANGE 


5002 


DEFW 


50DDH 


ENCOUNTERED 


5004 


DEFW 


50E8H 


CODE 


5006 


DEFW 


50ECH 


GAT 


5008 


DEFW 


50EFH 


HIT 


500A 


DEFW 


50F2H 


OVERLAY 


500C 


DEFW 


50F9H 


UNKNOWN 


500E 


DEFW 


5100H 


LOAD 


5010 


DEFW 


5104H 


SPACE 


5012 


DEFW 


5109H 


ONLY 


5014 


DEFW 


510DH 


NAME 


5016 


DEFW 


5111H 


DEVICE 


5018 


DEFW 


5117H 


FORMAT 


501A 


DEFW 


511DH 


FOUND 


501C 


DEFW 


5122H 


IN 


501E 


DEFW 


5124H 


ACCESS 


5020 


DEFW 


512AH 


FULL 


5022 


DEFW 


512EH 


DRIVE 


5024 


DEFW 


5133H 


DENIED 


5026 


DEFW 


5139H 


PROGRAM 


5028 


DEFW 


5140H 


AVAILABLE 


502A 


DEFW 


5149H 


CAN'T EXTEND 


502C 


DEFW 


5157H 


OPEN 


502E 


DEFW 


515BH 


ADDRESS OF 
MESSAGE LIST 
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ADDRESS 


WORD AD] 


5030 


DEFM 


5032 


DEFM 


5036 


DEFM 


503C 


DEFM 


5043 


DEFM 


5048 


DEFM 


504F 


DEFM 


5053 


DEFM 


5057 


DEVM 


505B 


DEFM 


5060 


DEFM 


5064 


DEFM 


5067 


DEFM 


5073 


DEFM 


5078 


DEFM 


5081 


DEFM 


5087 


DEFM 


5090 


DEFM 


5096 


DEFM 


5098 


DEFM 


509C 


DEFM 


50A4 


DEFM 


50A9 


DEFM 


50B2 


DEFM 


50B9 


DEFM 


50C0 


DEFM 


50C6 


DEFM 


50CA 


DEFM 



WORD 



•NO' 

•ERROR' 

'FORMAT' 

•PARITY' 

1 DURING ' 

•HEADER' 

•DATA' 

'SEEK' 

•READ' 

'WRITE' 

'LOST' 

'NOT' 

'ATTEMPTED TO' 

'LOCKED' 

'/DELETED' 

'SYSTEM' 

'DIRECTORY' 

'MEMORY' 

'ON' 

'DISK' 

'DISKETTE' 

'FAULT' 

'PROTECTED' 

•ILLEGAL' 

'LOGICAL' 

' NUMBER' 

'FILE' 

•RECORD' 
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WORD LIST 



ADDRESS 


WORD ADI 


50D0 


DEFM 


50D3 


DEFM 


50D5 


DEFM 


50D8 


DEFM 


50DD 


DEFM 


50E8 


DEFM 


50EC 


DEFM 


50EF 


DEFM 


50F2 


DEFM 


50F9 


DEFM 


50FF 


DEFM 


5104 


DEFM 


5109 


DEFM 


510D 


DEFM 


510F 


DEFM 


5117 


DEFM 


511D 


DEFM 


5121 


DEFM 


5124 


DEFM 


512A 


DEFM 


512E 


DEFM 


5133 


DEFM 


5139 


DEFM 


5140 


DEFM 


5149 


DUFM 


5157 


DEFM 



WORD 



•END 1 

i OF' 

'OUT' 

■RANGE' 

•ENCOUNTERED' 

1 CODE ' 

•GAT' 

'HIT' 

' OVERLAY ' 

•UNKNOWN' 

'LOAD' 

' SPACE ' 

'ONLY* 

' NAME ' 

•DEVICE' 

•FORMAT 1 

•FOUND' 

•IN' 

•ACCESS' 

•FULL' 

•DRIVE' 

'DENIED' 

•PROGRAM' 

'AVAILABLE' 

'-CAN'T EXTEND' 

•OPEN' 
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MESSAGE LIST 



ADDRUSS 



WORD INDEX 



MESSAGE 



515B 
515C 

515D 
515E 
515F 
5160 
5161 

5162 
5163 
5164 
5165 

5166 
5167 
5168 
5169 

516A 
516B 
596C 
516D 

516E 
516F 
5170 
5171 
5172 
5173 

5174 
5175 
5176 
5177 
5178 



DEFB 
DEFB 

DEFB 
DEFB 
DEFB 
DEFB 
DEFB 

DEFB 
DEFB 
DEFB 
DEFB 

DEFB 
DEFB 
DEFB 
DEFB 

DEFB 
DEFB 
DEFB 
DEFB 

DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 

DEFB 
DEFB 
DEFB 
LEFB 
DEFB 



01H 
82H 

04H 
02H 
05H 
06H 
89H 

08H 
02H 
05H 
89H 

0BH 
07H 
05H 
89H 

04H 
02H 
05H 
89H 

07H 
1BH 
0CH 
2CH 
05H 
89H 

0DH 
09H 
0EH 
07H 
9BH 



NO ERROR 



PARITY ERROR DURING HEADER READ 



SEEK ERR_R DURING READ 



LOST DATA DURING READ 



PARITY ERROR DURING READ 



DATA RECORD NOT FOUND DURING READ 



ATTEMPTED TO READ LOCKED RECORDS 
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ADDRESS 



WORD INDEX 



MESSAGE 



5179 
517A 
517B 
517B 
517D 



DEFB 
DEFB 
DEFB 
DEFB 
DEFB 



0DH 
09H 
0FH 
07 H 
9BH 



ATTEMPTED TO READ DELETED RECORD 



517E 
517F 
5180 



DEFB 
DEFB 
DEFB 



2AH 
0CH 
F3H 



DEVICE NOT AVAILABLE 



5181 
5182 
5183 
5184 
5185 



DEFB 
DEFB 
DEFB 
DEFB 
DEFB 



04H 
02H 
05H 
06H 
8AH 



PARITY ERROR DURING HEADER WRITE 



5186 
5187 
5188 
5189 



DEFB 
DEFB 
DEFB 
DEFB 



08H 
02H 
05H 
8 AH 



SEEK ERROR DURING WRITE 



518A 
518B 
518C 
518D 



DEFB 
DEFB 
DEFB 
DEFB 



0BH 
07 H 
05H 
8AH 



LOST DATA DURING WRITE 



518E 
518F 
5190 
5191 



DEFB 
DEFB 
DEFB 
DEFB 



04H 
02H 
05H 
8 AH 



PARITY ERROR DURING WRITE 
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MESSAGE LIST 



ADDRESS 



WORD INDEX MESSAGE 



5192 
5193 
5194 
5195 
5196 
5197 

5198 
5199 
519A 
519B 

519D 
519E 
519F 

51A0 
51A1 
51A2 
51A3 



DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 

DEFB 
DEFB 
DEFB 
DEFB 

DEFB 
DEFB 
DEFB 

DEFB 
DEFB 
DEFB 
DEFB 



07 H 
1BH 
0CH 
2CH 
05H 

8 AH 

0AH 
15H 
12H 
B0H 

0AH 
16H 
94H 

17H 
18H 
1AH 
99H 



DATA RECORD NOT FOUND DURING WRITE 



WRITE FAULT MEMORY DISK DEVICE 



WRITE PROTECTED DISKETTE 



ILLEGAL LOGICAL FILE NUMBER 



51A4 
51A5 
51A6 

51A7 
51A8 
51A9 

51AA 
51AB 
51 AC 



DEFB 
DEFB 
DEFB 

DEFB 
DEFB 
DEFB 

DEFB 
DEFB 
DEFB 



10H 
09H 
82H 

10A 
0AH 
82H 

17H 
1AH 
E9H 



SYSTEM READ ERROR 



SYSTEM WRITE ERROR 



ILLEGAL FILE NAME 
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ADDRESS 



WORD 


INDEX 


DEFB 


22H 


DEFB 


09H 


DEFB 


82H 


DEFB 


22H 


DEFB 


0AH 


DEFB 


82H 


DEFB 


23H 


DEFB 


09H 


DEFB 


82H 


DEFR 


23H 


DEFB 


0AH 


DEFB 


82H 


DEFB 


1AH 


DEFB 


0CH 


DEFB 


2DH 


DEFB 


D0H 


DEFB 


1AH 


DEFB 


2 EH 


DEFB 


F1H 


DEFB 


10H 


DEFB 


27 H 


DEFB 


EFH 



MESSAGE 



51AD 
51AE 
51AF 

51B0 
51B1 
51B2 

51B3 
51B4 
51B5 

51B6 
51B7 
51B9 

51B9 
51BA 
51BB 
51BC 

51BD 
51BE 
51BF 

51C0 
51C1 
51C2 



GAT READ ERROR 



GAT WRITE ERROR 



HIT READ ERROR 



HIT WRITE ERROR 



FILE NOT IN SYSTEM 



FILE ACCESS DENIED 



SYSTEM SPACE FULL 
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MESSAGE LIST 



ADDRESS 



51C3 
51C4 
51C5 

51C6 
51C7 
51C8 
51C9 

51CA 
51CB 
51CC 
51CD 
51CE 

51CF 
51D0 
51D1 
51D2 

51D3 
51D4 
51D5 

51D6 
51D7 
51D8 



DEFB 


13H 


DEFB 


27 H 


DEFB 


AFH 


DEFB 


1CH 


DEFB 


1DH 


DEFB 


1AH 


DEFB 


AOH 


DEFB 


1BH 


DEFB 


19H 


DEFB 


1EH 


DEFB 


1DH 


DEFB 


9FH 


DEFB 


10H 


DEFB 


2FH 


DEFB 


34H 


DEFB 


9 AH 


DEFB 


32H 


DEFB 


0CH 


DEFB 


ACH 


DEFB 


17H 


DEFB 


30H 


DEFB 


D9 



MESSAGE 



DISK SPACE FULL 



END OF FILE ENCOUNTERED 



RECORD NUMBER OUT OF RANGE 



SYSTEM FULL - CAN'T EXTEND FILE 



PROGRAM NOT FOUND 



ILLEGAL DRIVE NUMBER 
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ADDRESS 
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MESSAGE 



51D9 
51DA 
51DB 
51DC 

51DD 
51DE 
51DF 
51E0 

51E1 
51E2 

51E3 
51E4 
51E5 
51E6 
51E7 

51E8 
51E9 
51EA 
51EB 
51ES 

51ED 
51EE 
51EF 

51F0 
51F1 
51F2 



DEFB 
DEFB 
DEFB 
DEFB 

DEFB 
DEFB 
DEFB 
DEFB 

DEFB 
DEFB 

DEFB 
DEFB 
DEFB 
DEFB 
DEFB 

DEFB 
DEFB 
DEFB 
DEFB 
DEFB 

DEFB 
DEFB 
DEFB 

DEFB 
DEFB 
DEFB 



01H 
2AH 
27 H 
F3H 

26H 
1AH 
2BH 
82H 

11H 
95H 

0DH 
26H 
09H 
28H 
91H 

17H 
2 EH 
0DH 
16H 
9 AH 

1AH 
0CH 
F5H 

25H 
02H 
A1H 



NO DEVICE SPACE AVAILABLE 



LOAD FILE FORMAT ERROR 



DIRECTORY FAULT 

ATTEMPTED TO LOAD READ ONLY FILE 



ILLEGAL ACCESS ATTEMPTED TO FILE 



FILE NOT OPEN 



UNKNOWN ERROR CODE 
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DISPLAY HEADERS 



ADDRESS TEXT 



4F54 DEFM "AF BC DE HL AF'DE'HL'IX IY SP " 
4F78 DEFM ' SZIHIPNC' 

The code/length byte in the instruction group 
classification tables has the following format: 

Code: A 4-bit code specifying the reference address for 
the next I-fetch. The codes, and their 
interpretations are as follows: 



- Next instruction address follows current 

instruction. 

1 - Next instruction address is indirect through the 

HL. JP (HL) . 

2 - Next instruction address is conditionally the 

operand of the current instruction. JP C,XXXX. 

3 - Next instruction address is conditionally the 

operand of the current instruction. DJNZ XXXX. 

4 - Next instruction address is the operand of the 

current instruction. JP XXXX. 

5 - Next instruction address is conditional and/or 

indirect through the stack. RET, RET NZ. 

6 - Next instruction address will be entered via a 

CALL. CALL XXXX, or CALL NZ , XXXX. 

Length: - A 4 Bit value giving the length in bytes of the 
current instruction. 
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Address 




Mask, Op code. 


50E0 


DEFB 


C7H,C0H,51H 


50E3 


DEFB 


FFH,C9H,51H 


50E6 


DEFB 


FFH,E9H,11H 


50E9 


DEFB 


CFH,0IH,03H 


50EC 


DEFB 


E7H,22H,03H 


50EF 


DEFB 


C7H,C2H,43H 


50F2 


DEFB 


FFH,C3H,43H 


50F5 


DEFB 


C7H,C4H,63H 


50F8 


DEFB 


FFH,CDH,63H 


50FB 


DEFB 


C7H,06H,02H 


50FE 


DEFB 


F7H,D3H,02H 


5101 


DEFB 


C7H,C6H,02H 


5104 


DEFB 


FFH,CBH,02H 


5107 


DEFB 


F7H,10H,32H 


510A 


DEFB 


E7H,20H,32H 


510D 


DEFB 


01 H 



Address 



GROUP 2 INSTRUCTIONS 

Mask, Op Code, Code/length 



510E 
5111 
5114 



DEFB 
DEFB 
DEFB 



C7H,43H,04H 
F7H,45H,52H 
02H 



GROUP 3 INSTRUCTIONS 



Address 




Mask, OP Code, Code/length 


5115 


DEFB 


FEH,34H,03H 


5118 


DEFB 


C0H,40H,03H 


511B 


DEFB 


C0H,80H,03M 


511E 


DEFB 


FFH,21H,04H 


5121 


DEFB 


FFH,22H,04H 


5124 


DEFB 


FFH,2AH,04H 


5127 


DEFB 


FFH,36H,04H 


512A 


DEFB 


FFH,CBH,04H 


512D 


DEFB 


FFH,E9H,22H 


5130 


DEFB 


02H 


242 Appendix I 







SYS6 Data Structures 



SYS6 DATA STRUCTURES 



ERROR MESSAGES AND PROMPTS 



ADDRESS 



MESSAGE 



525A 


DEFM 


5274 


DEFM 


52DF 


DEFM 


5477 


DEFM 


54A0 


DEFM 


54B9 


DEFM 


54D2 


DEFM 


5592 


DEFM 


55A6 


DEFM 


58C5 


DEFM 


58DA 


DEFM 


58F2 


DEFM 


5C43 


DEFM 


5E85 


DEFM 


5EA1 


DEFM 


5EB7 


DEFM 


5F62 


DEFM 


5F6E 


DEFM 


6031 


DEFM 


6057 


DEFM 



'RESERVED COMMAND' 

'NOTHING DONE' 

'BAD FORMAT 1 

'INVALID COMMAND DURING 

PROGRAM CHAINING' 

•MASTER PASSWORD ? ' 

'NEW MASTER PASSWORD ? ' 

•INVALID MASTER PASSWORD 1 

'FILE SPEC REQUIRED' 

'DEVICE SPEC REQUIRED' 

'END LESS THAN START' 

'START LESS THAN X '7000" 

•CIM' 

•ATTRIBUTE SPECIFICATION ERROR' 

'FILE DIRECTORY DRIVE X 1 

'NNNNNNNN — MM/DD/YY 1 

•LRL= / END= / SIZE = 

GRANS' 
' DRIVE X — ' 

1 NNNNNNNN/ /MM/DD/YY / 
FILES, GRANS' 
'DRIVE SPECIFICATION ILLEGAL' 
•DUPLICATE FILE NAME' 
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ADDRESS 




TEXT STRING 


54EB 


DEFM 


■PW ' 


54F1 


DEFW 


53D9H 


54F3 


DEFM 


1 LOCK ■ 


54F9 


DEFW 


53F9H 


54FB 


DEFM 


'UNLOCK' 


5501 


DEFW 


5403H 


5503 


DEFB 


00H 


5C61 


DEFM 


'EXREWR' 


5E6A 


DEFM 


'A ' 


5E70 


DEFW 


5DB9H 


5E72 


DEFM 


'I ' 


5E78 


DEFW 


5D0BH 


5E7A 


DEFM 


•s ' 


5E80 


DEFW 


5CFDH 


5382 


DEFB 


00 


58F5 


DEFM 


•START ' 


58FB 


DEFW 


5868H 


58FD 


DEFM 


'END ' 


5903 


DEFW 


586EH 


5905 


DEFM 


'TRA ' 


590B 


DEFW 


58ABH 


590D 


DEFB 





598B 


DEFM 


'LINE ' 


5991 


DEFW 


5954H 



ADDRESS 



LOCAL STORAGE AREAS 

SIZE COMMENT 



5551 
5571 
5E67 
590E 



DEFS 
DEFS 
DEFS 
DEFS 



20H 
20H 
03H 
06H 



DCB 

DCB 

EOF RECORD NUMBER 

BUFFER AREA FOR FILE NAME 
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SYS0 CROSS REFERENCES 







SYS0 - SYS1 






CROSS REFERENCE 


SYS0 




SYS1 REFERENCE 


ADDRESS 




ADDRESS 


4000 


514F 




400F 


516D 




402F 


516D 




402D 


4E4E 




4030 


4E3D, 


4E8D, 517E 


4031 


517A 




430F 


4E28, 


4E72, 4E77, 4E90, 


4315 


4E31, 


5175, 5187 


4316 


5172 




4318 


4E23 




4410 


5199 




4433 


4E81 




4467 


4E43, 


4E8A 


4480 


4E52 




4CD9 


5194 





SYS0 - SYS2 
CROSS REFERENCE 



SYS0 


SYS2 REFERENCE 


ADDRESS 


ADDRESS 


4040 


50AB 


45CF 


514B 


4600 


5102 


4896 


4E12, 4ED8 


4ABE 


4F77, 4F92 


4AC1 


4E6D, 4F17, 4F6F, 4F96 


4AD6 


4F46 f 4F8E, 4FA3 


4B35 


5138 


4B55 


5130, 5143 


4D00 


5135, 5148 
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SYS0 - SYS3 
CROSS REFERENCE 



SYS0 


SYS3 REFERENCE 


ADDRESS 


ADDRESS 


404A 


4E09 




4E6F 


507F 




4878 


4E71 




4892 


4E6D, 


4FD0 


4AC1 


4E7B, 


4ECF, 4F5C, 4F81 , 4FEF 


4AD6 


4EB1. 


4F52, 4F6F, 5017 


4AF0 


4EF6, 


4FEB 


4B03 


4F77, 


5026 


4B55 


5068, 


5077 


4B84 


4EE2 





SYS0 - SYS4 
CROSS REFERENCE 



SYS0 
ADDRESS 




SYS4 REFERENCE 
ADDRESS 






4030 


4E70 








430A 


4E7E 








430C 


4F0C 








4467 


4E27, 


4E77, 4E9B, 4F03, 


4F09, 


4F18 


4552 


4F70 








4AC1 


4EC4 
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SYS0 - SYS5 
CROSS REFERENCE 



SYS0 




SYS5 REFERENCE 


ADDRESS 


j 


ADDRESS 




400F 


4F99 








4020 


4E55, 


4F48, 


4FEC, 


4FF9 


405D 


4E2F, 


4ECB, 


5144 




405E 


4E9A, 


4EB4, 


4ECF 




4060 


4FDB, 


4FE1, 


4FEF, 


5165 


4062 


4F82, 


5092 






4063 


4EB1. 


4EC2, 


4F2F f 


4F4B 


4065 


4E17, 


4 EDA, 


5049 




406B 


4FC6, 


5 0D8 






4075 


50CC 








4077 


50D3 








4079 


4ElF f 


4E4B, 


50B7 




407A 


4FA4 








407B 


4E23, 


4E2C f 


4F8A, 


4FC2, 505E 


4315 


4FA1 








4316 


4F9C 








43C7 


510D 
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SYS0 - SYS6 
CROSS REFERENCE 



SYS0 






SYS6 


REFERENCE 






ADDRESS 






ADDRESS 








402D 


5201, 


5337, 


5367, 


5409. 


5451, 


5512. 


57B3 




57E2, 


58BB, 


5929, 


5980, 


5985, 


59A6, 


59E3 




59E8, 


5C36, 


5DD8, 


5F5F 








4030 


5257, 


5271, 


52D9, 


53D5, 


5474, 


5504, 


5549, 




58C1, 


5979, 


59D4, 


5C3F, 


5 DDE, 


602E, 






6054 














4041 


52BC 














4044 


52A8 














4200 


5418, 


5442, 


5CA5 










4296 


53FF, 


5D70, 


5D83 










42D0 


5CAE 














430F 


536A, 


5515 












43C0 


531D 














4409 


554E 














4410 


52D0 














4413 


52CD 














441C 


5703, 


5712, 


5752, 


575B, 


57EC, 


5917, 


5936, 




5997, 


5 9AF, 


5B03, 


5F9F, 


5FB4 






4420 


5777, 


5832 












4424 


53AC, 
5EE8, 


5723, 
5 FAB, 


5731, 
5FE4 


5769, 


591D, 


594D, 


59C0, 5B15 


4428 


57A4, 


57AD, 


58B5 










442C 


5923 














4430 


5 9 A3 














4436 


5780 














4439 


5793 














443A 


550F 














4448 


5254, 


526E, 


52D6, 


53B2, 


53D2, 


53E2, 


5471, 




553D, 


5546, 


58BE, 


5C3C, 


5C9B, 


5CC4, 


5E38, 




5F55, 


602B, 


6051 










4473 


582A 














4476 


5395, 


57FB, 


5945, 


5C95 








46EF 


5445 














478B 


5507, 


60CD 












47A8 


550C 














485E 


60D5 














4AC1 


5BFB, 


5CCD, 


5FF4 










4AD6 


5C30, 


6008 












4AF0 


5285, 


53BD, 


5EF7 










4B03 


5296, 


53EF 












4B35 


541B, 


5CA8 












4B55 


5413, 


5CA0 












4CA9 


52C8 














4D00 


5B12, 


5F10 












4D40 


5F34 














4DCE 


53C3, 


53E8, 


53F5 










4DD0 


5EFD 
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SYS1 Cross References 



SYS1 CROSS REFERENCE 



SYS1 - SYS6 
CROSS REFERENCE 



SYS1 
ADDRESS 



SYS6 REFERENCE 
ADDRESS 



4EBD 
51A0 



533A 
52C5, 5504 



SYS2 CROSS REFERENCE 



SYS2 - SYS6 
CROSS REFERENCE 



SYS2 


SYS6 REFERENCE 




ADDRESS 


ADDRESS 






5081 


5BF0 








509B 


601A 








50D1 


546B f 


5BB1, 


5BC6 




50FD 


5 EEC 








512E 


5F2E, 


600E 






5141 


601F 








5155 


5B56, 


5BAE, 


5BC3, 


5BE1 


5157 


5B73 








515D 


5FFF, 


6017 






5168 


53B8, 


53C6, 


5BC9, 


5C17 


5169 


5C1B 








516A 


5BB4, 


5C27 






516B 


5C2B 
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Appendix II 
Complete Systems 

SYS0/SYS 251 

SYS1/SYS 262 

SYS2/SYS 265 

SYS3/SYS 26 8 

SYS4/SYS 271 

SYS5/SYS c 274 

SYS6/SYS 278 

BOOT/ SYS 286 
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SYSO/SYS 



********** 



400C C3A24B 
400F C3B444 
4012 C31845 



4015 
401D 
4025 



402D C30044 



************************************** 

SYS0/SYS * 

Nucleus Routine * 

for * 

TRSDOS * 

************************************** 



Entry Points Used by LEVEL II 

JP 4BA2H Jump to system overlay loader. 
JP 44B4H Hake overlay call to load DEBUG 
JP 4518H Jump to interrupt service routine 



Keyboard, Video, and Printer DCB's 
8 



DEFS 
DEFS 
DEFS 



Keyboard DCB (loaded by LEVEL II) 
Video DCB (loaded by LEVEL II) 
Printer DCB (loaded by LEVEL II) 



Overlay Load Requests 
4400H 



Make overlay call to load 
SYS1/SYS req code 1 



If DEBUG active, locations 4030 - 4032 contain CALL 400F (load DEBUG) 



4030 3EA3 
4032 EF 



4033 C3BB44 



403D 00 

403E 22 

403F 01 

4040 

4041 

4042 

4043 

4047 

4049 

404B 

404C 



LD A,0A3H Code for SYS1/SYS option 2 
RST 28H Load and execute overlay 

Does not return in-line 
JP 44BBH Enter driver. Called from LEVEL II 

— Local storage Areas for Nucleus 

DEFS 7 Keyboard row history table 



DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFW 
DEFW 
DEFB 
DEFB 



21B 
01H 



404F 


DEFW 


4537H 


4051 


DEFW 


4537H 


4053 


DEFW 


4537H 


4055 


DEFW 


4537H 


4057 


DEFW 


4537H 


4059 


DEFW 


4537B 


405B 


DEFW 


4537H 



4300 


DEFB 


11B 


4301 


DEFB 


11H 


4302 


DEFB 


11H 


4303 

* 


DEFB 


11H 


* 
* 





- Dirt 


4304 


DEFB 


11H 


4305 


DEFB 


11H 


4306 


DEFB 


lia 


4307 


DEFB 


11H 


* 




Unit F] 


4308 


DEFB 


00H 


4309 


DEFB 


01H 


430A 


DEFB 


00 


430B 


DEFB 


00 


43 0C 


DEFB 


00 


430D 


DEFB 


00 


43 0E 


DEFB 


02H 


430F 


DEFB 


00 


4310 


DEFB 


00 


4311 

* 


DEFB 


00 


* 

4312 C3A04B 


JP 


4BA 



Video display byte used by LEVEL II 

Reserved. 

Reserved. 

Clock interrupt index. 

Seconds 

Minutes 

Hours 

Utility program load address 

Memory size. 

Current interrupt status byte 

Interrupt subroutine mask 



Interrupt task list 

4537H Address of interrupt service 
routine for interrupt bit 
Address for bit 1 
Address for bit 2 
Address for bit 3 
Address for bit 4 
Address for bit 5 
Address for bit 6 
Address for bit 7 

System Sector Buffer 

256 System sector buffer area. 

Track History Table 



Last track addressed drive 
Last track addressed drive 1 
Last track addressed drive 2 
Last track addressed drive 3 



Directory track number drive 
Directory track number drive 1 
Directory track number drive 2 
Directory track number drive 3 



Unit Flags And Addresses 



Last unit selected 

Select mask for last unit selected. 

Buffer address, current operation 

DCB address for current operation 

Last overlay load request 
DEBUG load flag 
Reserved 
Reserved 



Return with zero status 

JP 5BA4 if DISK BASIC loaded 



4315 
4316 



4315-4317 Contains DEBUG FLAG if DEBUG active 
DEFB 
DEFW 



Contains if DEBUG (off) 

C3 if DEBUG (on) 

Addr. of nucleus to load DEBUG 



Wait for Disk Controller to Become Not Busy — 



4398 3AEC37 LD 

439B CB47 BIT 

439D C8 RET 

439E 18F8 JR 



A, (37ECH) Get controller status. 

00H,A Test if controller busy. 

Z Exit if not busy. 

4398H Loop till not busy. 



* Reselect Last Unit Selected 

* 

43AC 3A0943 LD A, (4309H) Get mask for current unit 

43AF 32E137 LD (37E1H) ,A Select unit 

43B2 3AEC37 LD A, (37ECH) Fetch controller status 

43B5 C9 RET Return to caller 

* 

* Decrement Count of Records in File by 1 



43D1 DD7E08 
43D4 B7 
43D5 C8 

43D6 0B 
43D7 C9 



213640 

010138 

1600 

0A 

5F 

AE 

73 

A3 

2008 

14 

2C 

CB01 

F2E043 

C9 

5F 

C5 

01DF04 

CD6000 

CI 

0A 

A3 

C8 

C3FB03 



43D8 
43DB 
43DE 
43 E0 
43E1 
43 E2 
43 E3 
43E4 
43E5 
43 E7 
43 E8 
43E9 
43EB 
43 EE 
43EF 
43F0 
43F1 
43F4 
43F7 
43F8 
43F9 
43FA 
43FB 

43FE 
43FF 



4400 3E93 

4402 EF 
4403 
4404 
4405 3EB3 

4407 EF 
4408 

4409 C3B044 
440C C3B444 
440F 00 



4410 C39645 
4413 C39345 
4416 C3A545 

4419 C38E45 



441C 3EC3 

441E EF 
441F 
4420 3EA4 

4422 EF 

4423 00 

4424 3E94 

4426 EF 

4427 00 

4428 3E95 
44 2A EF 
442B 00 
442C 3EA5 
442E EF 
442F 00 



LD 
OR 
RET 

DEC 
RET 



LD 

LD 

LD 

LD 

LD 

XOR 

LD 

AND 

JR 

INC 

INC 

RLC 

JP 

RET 

LD 

PUSH 

LD 

CALL 

POP 

LD 

AND 

RET 

JP 

NOP 
NOP 



A, (IX+08H) Get EOF byte in last sector 

A Set status flag and 

Z return with zero status 

if file ends on sector boundary 
BC Else decrement no. of records 

Then return to caller 

Keyboard Driver 

HL,4036H Row history buffer address 

BC,3601H Memory mapped address, first row 

D,00H Row index 

A, (BC) Fetch a row from keyboard 

E,A Save row bits 

(HL) Compare with previous contents 

(HL) ,E Save new row value 

E Look for identical match 

NZ,43EFH Jump if not identical match 

D Identical value. Bump row index 

L Bump row history buffer address 

C Shift row adr. Gives 2, 4, 6 ... 

P,43E0H Loop till 7 rows tested 

No new character. Return 

E,A Save active row bits 

BC Save active row address 

BC,04DFH Delay value for 18 milliseconds 

0060H Call delay routine 

BC Restore active row address 

A, (BC) Ref etch row bits 

E Compare with previous row bits 

Z Exit if same row not active 

03FBH Else, call LEVEL II driver to 

translate row value to ASCII value 



Overlay Load Requests 

LD A,93H 



RST 28H 

NOP 

NOP 

LD A,0B3H 

RST 28H 

NOP 

JP 44B0H 

JP 44B4H 

NOP 



Overlay request code for SYS1/SYS 

option 10 

Load and execute overlay 



Overlay request code for SYS1/SYS 

option 30 

Load and execute overlay 

Overlay call to error processor 
Make overlay call to load DEBUG 



SYS0 Service Routine Entry Points 



JP 
JP 
JP 



LD 
RST 



NOP 

LD 

RST 

NOP 

LD 

RST 

NOP 

LD 

RST 

NOP 



4596H Add address to interrupt task list 

4593H Remove address from task list 

45A5H Replace 1st pointer for current 

interrupt task with value in DE 
458EH Remove current task from list 



Overlay Load Requests 
A,0C3H 
28H 



Overlay code for SYS1/SYS 

Option 40 

Load and execute overlay 



A,0A4H INIT overlay request Code 

28H load/execute SYS1/SYS option 20 

A,94H OPEN overlay request code 

28H Load/execute SYS2/SYS option 10 

A,95H CLOSE overlay request code 

28H load and execute SYS3/SYS option 10 

A,0A5H KILL overlay request 

28H Load and execute SYS3/SYS option 20 



SYS0 Service Routine Entry Points 



4430 C3164C 
4433 C3064C 



JP 
JP 



4C16H 
4C06H 



Load file specified by DCB in DE 
Load file from system DCB 



Entry Points for Nucleus I/O Operations 



4436 
4439 
443C 
443F 
4442 
4445 
4448 



4467 
446A 
446D 
4470 



C36D47 
C38B47 
C3A847 
C35647 
C30047 
C33747 
C35F47 



C3CF44 
C3DF44 
C3B74C 
C3D24C 



JP 476DH Read 

JP 478BH Write 

JP 47A8H Verify 

JP 4756H Rewind 

JP 4700H Position to specified record 

JP 4737H Backspace, 1 record 

JP 475FH Skip to end of file 

SYS0 Service Routine Entry Points 

JP 44CFH Send message to video 

JP 44DFH Send message to printer 

JP 4CB7H Display clock 

JP 4CD2H Display date 
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Overlay Load Requests 



4473 3ED3 


LD 


A, 0D3H 


4475 EF 


ROT 


28H 


4476 3EE3 


LD 


A.0E3H 


4478 EP 


ROT 


28 H 



Code for SYS1/SYS option 58 
Load and execute overlay 
Code for SYS1/SYS option 60 
Load and execute overlay 



System DCB (32 bytes) 

DEFM 'NAMENAME/EXT.PASSWORD:N 



System DCB (16 bytes) 



44A0 


DEFB 


80 H 


44A1 


DEFB 


00 


44A2 


DEFB 


00H 


44A4 


DEFW 


4D00H 


44A5 


DEFB 


00 


44A6 


DEFB 


00 


44A7 


DEFB 


00 


44A8 


DEFB 


00 


44A9 


DEFB 


00H 


44AA 


DEFW 


0000H 


44AC 


DEFB 


FFH 


44AD 


DEFB 


FFH 


44AE 


DEFB 


00 


44AF 


DEFB 


00 



Open flag 

Access flags 

Reserved 

Sector buffer address 

Offset to next record 

Drive number 

Overflow pointer 

EOF byte address 

Record size 

Next record number 

Number of records 

Track number 

Starting number of granules 

and number of granules 



Load Error Message Processor 



Save error code 

Overlay request code for SYS4/SYS 

Load and execute error processor 



Save A-register 

Overlay request code for SYS5/SYS 

load and execute DEBUG processor 



Copy DCB address 

From HL to ix 

Load driver address LSB 

Load driver address MSB 

Get device code 

Is this DCB linked to another 

Jump if yes 

Jump if disk DCB 

A = op code 

Compare op code to write 

Enter driver 



Save beginning message addess 

Get a char, from caller's buffer 

Test for 03 - end of message. 

Exit if end of message. 

Display on video 

Bump to next display char. 

Test for CR - end of message 

Jump if not CR 

End of message encountered 

Restore caller's HL & return 



Save origin of message 
Fetch a byte of message 
End of message 
Yes, exit 

No, print character 
Bump to next character 
Was last char, a CR 
No, get & print char. 
Yes, restore start of msg. 
and return to caller 



Interrupt Task List Address 

This list contains pointers to addresses of tasks to be executed 
on every clock interrupt. The list may be divided into two parts. 
Entries from 4510-4516 are executed unconditionally on every 
clock interrupt (every 25 milliseconds). Entries from 4500-450E 
are executed once every 8 interrupts (200 milliseconds). Task 
execution is controlled by the subroutine at 4560 which is 
called by the interrupt processor. Location 4040 contains a 
counter used to select the next task to be executed from the 
first part of the list. 



44B0 F5 


PUSH 


AF 


44B1 3E86 


LD 


A,86H 


44B3 EF 


ROT 


28H 


* 
* 





Load DEBUG 


44B4 F5 


PUSH 


AF 


44B5 3E87 


LD 


A,87H 


44B7 EF 


ROT 


28H 


* 

* 


Enter Driver. Called 


44B8 E5 


PUSH 


HL 


44B9 DDE1 


POP 


IX 


44BB DD6E01 


LD 


L,(IX+01H) 


44BE DD6602 


LD 


H,(IX+02H) 


44C1 DD7E00 


LD 


A, (IX+00H) 


44C4 FE10 


CP 


10H 


44C6 28F0 


JR 


Z.44B8H 


44C8 D2AE47 


JP 


NC.47AEH 


44CB 78 


LD 


A,B 


44CC FE02 


CP 


02H 


44CE E9 


JP 


(HL) 


* 
* 


Send 


Message to 


44CF E5 


PUSH 


HL 


44D0 7E 


LD 


A, (HL) 


44D1 FE03 


CP 


03H 


44D3 2808 


JR 


Z.44DDH 


44D5 CD3300 


CALL 


0033H 


44D8 23 


INC 


HL 


44D9 FE0D 


CP 


0DH 


44DB 20F3 


JR 


NZ.44D0H 


44DD El 


POP 


HL 


44DE C9 


RET 




* 
* 


Send 


Message to 


44DF E5 


PUSH 


HL 


44E0 7E 


LD 


A, (HL) 


44E1 FE03 


CP 


03H 


44E3 2808 


JR 


Z.44EDH 


44E5 CD3B00 


CALL 


003BH 


44E8 23 


INC 


HL 


44E9 FE0D 


CP 


0DH 


44EB 20F3 


JR 


NZ.44E0H 


44ED El 


POP 


HL 


44EE C9 


RET 




44EF 00 


NOP 





4500 


DEFW 


45A3H 


Address of 


task 


4502 


DEFW 


45A3H 


Address of 


task 1 


4504 


DEFW 


45A3H 


Address of 


task 2 


4506 


DEFW 


45A3H 


Address of 


task 3 


4508 


DEFW 


45A3H 


Address of 


task 4 


450A 


DEFW 


45A3H 


Address of 


task 5 


450C 


DEFW 


45A3H 


Address of 


task 6 


450E 


DEFW 


45A3H 


Address of 


task 7 


4510 


DEFW 


45A3H 


Address of 


task 8 


4512 


DEFW 


45A3H 


Address of 


task 9 


4514 


DEFW 


45A3H 


Address of 


task 10 


4516 


DEFW 


45A3H 


Address of 


task 11 



Interrupt Service Routine 

Entered for all Maskable Interrupts 



4518 E5 


PUSH 


HL 


4519 F5 


PUSH 


AF 


451A 3AE037 


LD 


A, (37E0H) 


451D 214B40 


LD 


HL,404BH 


4520 77 


LD 


(HL) ,A 


4521 2C 


INC 


L 


4522 A6 


AND 


(HL) 


4523 2808 


JR 


Z.452DH 


4525 2C 


INC 


L 


4526 IF 


RRA 




4527 380F 


JR 


C.4538H 


4529 2C 


INC 


L 


452A B7 


OR 


A 


452B 20F8 


JR 


NZ.4525H 


452D 3A4038 


LD 


A,(3840H) 


4530 E604 


AND 


04H 


4532 201B 


JR 


NZ.454FH 


4534 Fl 


POP 


AF 


4535 El 


POP 


HL 


4536 FB 


EI 




4537 C9 

it 


RET 




* — Call 

* 


Interrupt 


Task Routi 


4538 F5 


PUSH 


AF 


4539 C5 


PUSH 


BC 


453A D5 


PUSH 


DE 


453 B E5 


PUSH 


HL 


453C DDE5 


PUSH 


IX 


453E 114745 


LD 


DE.4547H 


4541 D5 


PUSH 


DE 


4542 5E 


LD 


E,(HL) 


4543 2C 


INC 


L 


4544 56 


LD 


D, (HL) 


4545 EB 


EX 


DE,HL 


4546 E9 

* 


JP 


(HL) 


* 

* 


Return Point for Inte 


4547 DDE1 


POP 


IX 


4549 El 


POP 


HL 


454A Dl 


POP 


DE 


454B CI 


POP 


BC 


454C Fl 


POP 


AF 


454D 18DA 


JR 


4529H 



Save interrupt 

Context 

Get interrupt status byte 

Addr. to save interrupt status 

Save interrupt status byte 

HL = 404C (addr. of interrupt 

service routine mask byte) 

Compare mask to interrupt status 

Jump if no match, ignore interrupt 

Bump HL to 404D, start of 

interrupt processor's addr. list 

Test a bit in the interrupt 

status. Start at Bit 7 and 

work towards Bit 

Jump if ON bit found 

Bump HL to address of next 

interrupt processor, must 

bump twice, second one at 4525 

Any remaining interrupt bits? 

If so, go test for specific bit 

If not, load BREAK key row 

Isolate BREAK bit 

Jump if BREAK active. Go test 

if DEBUG should be loaded. 

Exit interrupt service routine 

Restore interrupted context 

Enable interrupts 

Return to point of interrupt 



Save interrupt service 

routine context 

Save interrupt context 

Save interrupt context 

Save interrupt context 

Saving done 

Return address after executing 

interrupt processor routine 

To stack (simulate a CALL) 

Load LSB of processor address 

Bump to MSB of address in list 

Load MSB of processor address 

Interrupt processor addr. to HL 

Jump to interrupt processor 



Restore interrupted 
service context 
Restore context 
Restore context 
Restore context 
Restoring done 
Loop. Look for more bits 
in status byte 



* Active BREAK key detected during interrupt processing. Test if 

* DEBUG is active. If not, return to point of interrupt, else clear 

* active flag, load and execute DEBUG. 

* 

HX = address of DEBUG 

active flag 

Load comparison value for 

DEBUG inactive 

Is DEBUG active 

Jump if no 

Yes, reset flag to inactive 

Bump to LSB of addr. containing 

DEBUG load request 

Load LSB 

Bump to MSB of addr. containing 

DEBUG load request 

Load MSB 

Form 400F in HL. Address of 

instrucion to load DEBUG 

Restore interrupted context 

Restore interrupted HL 

Pushs 40 0F onto stack 

Allow interrupts 

Go load and execute DEBUG 



454F 


211543 


LD 


HL.4315H 


4552 


AF 


XOR 


A 


4553 

4554 
4556 
4557 


BE 

28DE 
77 
2C 


CP 
JR 
LD 
INC 


(HL) 

Z.4534H 
(HL) ,A 
L 


4558 
4559 


7E 
2C 


LD 

INC 


A,(HL) 
L 


455A 
455B 


66 
6F 


LD 
LD 


H,(HL) 
L,A 


455C 
455D 


Fl 
E3 


POP 
EX 


AF 
(SP),HL 


455E 
455F 


FB 
C9 


EI 
RET 





Clock Interrupt Routine 



4560 3E08 



LD 



A.06H 



4562 CD7B45 
4565 3E09 


CALL 
LD 


457BH 
A,09H 


4567 CD7B45 
456A 3E0A 


CALL 
LD 


457BH 
A.0AH 


456C CD7B45 
456F 3E0B 


CALL 
LD 


457BH 
A,0BH 


4571 CD7B45 
4574 214040 


CALL 
LD 


457BH 
HL.4040H 


4577 34 

4578 7E 

4579 E607 


INC 

LD 

AND 


(HL) 
A,(HL) 
07 H 


457B 07 


RLCA 





Index for 8th entry in interrupt 

task list table 

Go execute task 

Index for 9th entry in interrupt 

task list table 

Go execute task 

Index for 10th entry in interrupt 

task list table 

Go execute task 

Index for 11th entry in interrupt 

task list table 

Go execute task 

Index address for tasks to be 

executed every 200 milliseconds 

Bump index 

Fetch index 

Restrict index to range 0-7, 

then fall into subroutine 

that locates task address 

and executes task 

Index times two gives LSB of 

interrupt task list address 
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457C 6F 
457D 2645 


LD 
LD 


L,A 
H,45H 


457F 22A645 


LD 


(45A6H 


* Load 


address 


for 1st 1 


4582 5E 

4583 2C 

4584 56 

4585 D5 


LD 
INC 
LD 
PUSH 


E,(HL) 

L 

D, (HL) 

DE 


4586 DDE1 
4588 EB 


POP 
EX 


IX 
DE.HL 



Index times two to L reg. so 
Interrupt task list address can 
be formed in HL-register 
Save current task list address 



Fetch LSB of address for 1st level 

Bump to MSB of address 

Fetch MSB of address for 1st level 

Address for 1st level of 

indirection to stack 

as a convenient way to load IX 

Addr. for 1st level of 

indirection to HL 



Load address for 2nd level of indirection 



4589 5E 
458A 23 
458B 56 

45 8C EB 
458D E9 



LD E, (HL) Fetch LSB of 2nd level 
INC HL Bump to MSB of address 

LD D, (HL) Fetch MSB of address for 2nd 

level of indirection 
EX DE,HL 2nd level (task address) to HL 
JP (HL) Go execute task. Return to caller 

of 457B or 4560 

Replace address for 1st pointer in 
interrupt table with value in DE 



458E Dl 
458F 3AA645 


POP 
LD 


DE 

A, (45A6H) 


4592 0F 


RRCA 




4593 11A345 


LD 


DE,45A3H 


4596 FE0C 


CP 


0CH 


4598 D0 


RET 


NC 


4599 07 
459A 6F 
459B 2645 


RLCA 

LD 

LD 


L,A 
H.45H 


459D F3 


Dl 




459E 73 


LD 


(HL) ,E 


459F 2C 
45A0 72 
45A1 FB 


INC 
LD 

EI 


L 

(HL) ,D 


45A2 C9 

* 


RET 




* 

45A3 A245 
45A5 210000 
45A8 5E 
45A9 23 
45AA 56 
45AB EB 
45AC Dl 


DEFW 

LD 

LD 

INC 

LD 

EX 

POP 


45A2H 

HL,0000 

E,(HL) 

HL 

D, (HL) 

DE.HL 

DE 


45AD 18EE 


JR 


459DH 



Clear stack 

Fetch LSB of 1st pointer for last 

interrupt task executed 

Divide by 2 to get index into 

interrupt task list 

New 1st pointer address if 45A6 

contains an address from 

interrupt task list 

Compare index for last task to 

execute, (maximum of 12) 

Return if index not past end of 

interrupt task list 

Reform address using Index 

And form 

Address of interrupt task 

list in HL 

Kill interrupts while we adjust 

interrupt task list table 

Store 45A3 (1st pointer of 

last index) 

This will cause all 

Subsequent calls to this index 

to be ignored since 45A3 points 

to 45A2 which contains a RET 

Return to caller 



Addr. of current interrupt task 

E = LSB of task list address 

Bump to MSB of address 

D = MSB of task list address 

Move task list addr. to HL so new 

1st pointer can be stored 

dear stack 

Store address of first pointer 

for current interrupt task 



Clock Maintenance Routine 

Called from Interrupt Service Routine 
if CLOCK (ON) 



45AF B245 


DEFW 


45B2H 


45B1 05 


DEFB 


5 


45B2 DD3502 


DEC 


(IX+02H) 


45B5 C0 


RET 


NZ 


45B6 DD360205 


LD 


(IX+02H) 


45BA 0603 


LD 


B.03H 


45BC 214140 


LD 


HL.4041H 


45BF 11EF45 


LD 


DE.45EFH 


45C2 34 


INC 


(HL) 


45C3 1A 


LD 


A,(DE) 


45C4 96 


SUB 


(HL) 


45C5 C0 


RET 


NZ 


45C6 77 


LD 


(HL) ,A 


45C7 2C 


INC 


L 


45C8 1C 


INC 


E 


45C9 10F7 


DJNZ 


45C2H 



Count of times entered 
Have we been entered 5 times? 
(has 1 second elapsed) 
Ret to interrupt processor if not 
05H Yes. Reset elapsed time counter 
Maximum number of values to update 
Starting address for time (seconds) 
Starting address for maximum 
values for each time period 
Bump a time period, seconds, 
then minutes, then hours 
Fetch maximum value for period 
being incremented 
Compare period to max. unit value 
Return if unit not max, value 
Else reset period to zero 
And bump increment and 
Test addresses to next unit 
Loop till periods incremented 
or no overflow from one 
period to the next 



Update DATE 

if 24 hours have passed 



45CB 


2C 


45CC 


34 


45CD 


2C 


45CE 


7E 


45CF 


2D 


45D0 


3D 


45D1 


83 


45D2 


5F 


45D3 


1A 


45D4 


BE 


45D5 


D0 



INC 


L 


INC 


(HL) 


INC 


L 


LD 


A, (HL) 


DEC 


L 


DEC 


A 


ADD 


A.E 


LD 


E.A 


LD 


A,(DE) 


CP 


(HL) 


RET 


NC 



Skip over year value for date 

Bump day value for date 

Skip to month value for date 

Fetch month value 

Backspace to day value 

Decrement month 

So it can be used as an index 

into month table 

Form month table address 

Fetch days for current month 

Compare with current days 

Exit if month has not rolled over 



45D6 


7E 


LD 


A, (HL) 


45D7 


FE1E 


CP 


1EH 


45D9 


3006 


JR 


NC.45E1H 


45DB 


2D 


DEC 


L 


45DC 


7E 


LD 


A, (HL) 


45DD 


2C 


INC 


L 


45DE 


E603 


AND 


03H 


45E0 


C8 


RET 


Z 


45E1 


3601 


LD 


(HL),01H 


45E3 


2C 


INC 


L 


45E4 


34 


INC 


(HL) 


45E5 


7E 


LD 


A, (HL) 


45E6 


D60D 


SUB 


0DH 


45E8 


D8 


RET 


C 


45E9 


3601 


LD 


(HL),01H 


45EB 


2D 


DEC 


L 


45EC 


2D 


DEC 


L 


45ED 


34 


INC 


(HL) 


45EE 


C9 


RET 




* 




Max 


lmum Value 


45EF 


3C 


DEFB 


3CH 


45F0 


3C 


DEFB 


3CH 


45F1 


18 


DEFB 


18H 



Refetch current day number 

Compare with 30 

Jump if day is 30 or 31 

else, it's FEB 

Backspace to year value for date 

Fetch year 

Skip forward to day 

Test for leap year 

Exit if not leap year 

Month rolled over. Reset day to 1 

Bump to month 

Increment month value 

Fetch month value 

Test for year rollover 

Exit if not end of year 

Reset month to 1 

Backspace over month 

And day 

Then increment year 

Return to interrupt processor 



Decimal 60 seconds 
Decimal 60 minutes 
Decimal 24 hours 



Month Table 

Contains Number of Days in Each Month. 



45F2 
45F3 
45F4 
45F5 
45F6 
45F7 
45F8 
45F9 
45FA 
45FB 
45FC 
45FD 



4600 E5 

4601 210843 

4604 7E 

4605 B9 

4606 2004 

4608 2C 

4609 7E 
460A 1818 
460C 71 
460D 2643 
460F 6F 

4610 CD9843 
4613 3AED37 

4616 77 

4617 79 

4618 6F 

4619 7E 
461A 32ED37 



DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 



1FH 
1CH 
1FH 
1EH 
1FH 
1EH 
1EH 
1EH 
1EH 
1EH 
1FH 
1FH 



JAN 31 
FEB 28 
MAR 31 
APR 30 
MAY 31 
JUN 30 
JUL 31 
AUG 31 
SEP 30 
OCT 31 
NOV 30 
DEC 31 



461D 
461E 
4621 
4624 
4625 
4628 
4629 
46 2A 
462D 
462F 
4632 
4633 
4634 
4635 
4637 
4638 



79 

CD3946 

320943 

6F 

3AEC37 

07 

7D 

32E137 

3008 

210000 

2B 

7C 

B5 

20FB 

El 

C9 



Select Drive Specified in C-Register 

PUSH HL Save caller's HL 

LD HL,4308H Address of last drive selected 

LD A, (HL) Load last drive selected 

CP C Compare with drive requested 

JR NZ,460CH Jump if different drive. Must 

construct new drive select mask 

INC L Bump to last drive select mask 

LD A. (HL) Load drive select mask 

JR 4624H Go select drive 

LD (HL) ,C Update last drive selected 

LD H,43H Form origin of last track Table 

LD L,A Form origin of current drive 

CALL 4398H Wait for controller, not busy 

LD A, (37EDH) Load current track, 

LD (HL) ,A save in last track selected table 

LD A,C A = drive number 

LD L,A Reform last track addr. for drive 

LD A, (HL) Fetch last track selected this drive 

LD (37EDH) ,A Update track register to 

current track number 

LD A,C A = drive number 

CALL 4639H Construct drive select mask 

LD (4309H) , A And save for future use 

LD L,A Temporary storage while A in use 

LD A, (37ECH) Fetch controller status 

RLCA Shift NOT READY bit into CARRY 

LD A,L Restore drive select mask 

LD (37E1H) ,A Select drive 

JR NC,4637H Jump if drive ready 

LD HL,0000H Drive not ready. Delay one sec. 

DEC HL Decrement 16 bit counter 

LD A,H Combine MSB 

OR L And LSB of counter 

JR NZ,4632H Loop if counter not zero 

POP HL Restore caller's HL 

RET Return to caller 



— Construct Unit Select Mask for Value in A-Register — 



4639 E607 
463B 07 
46 3C 07 
46 3D 07 
463E F6C7 

4640 324546 

4643 AF 

4644 CBC7 
4646 C9 



AND 

RLCA 

RLCA 

RLCA 

OR 

LD 

XOR 

SET 

RET 



07 H 



0C7H 

(4645H) ,A 
A 
00H,A 



Restrict drive to 0-3 

Shift drive number left 

3 bit positions 

to combine with SET op code 

Synthesize SET (A) ,A instruction 

Save synthesized instruction 

Zero A 

Turn on drive number bit 

Return to caller 



* Select Drive and Issue Seek if not on Track 

4647 CD0046 CALL 4600H Select drive 

464A CD6946 CALL 4669H Wait for controller not busy 

464D 3AED37 LD A, (37EDH) Fetch last track selected 

4650 BA CP D And compare with required track 

4651 ED53EE37 LD (37EEH) ,DE Update track/sector registers 

4655 C8 RET z Ret if we're on the right track 

4656 3E1F LD A,1FH Else load SEEK op code 

4658 F5 PUSH AF Save op code on stack 

4659 CD6946 CALL 4669H Wait for controller not busy 
465C Fl POP AF Restore SEEK op code 

465D 32EC37 LD (37ECH) ,A And send to controller 

4660 C9 RET Return to caller 
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Send Command in A-register to Disk Cantroller 
Returns When Command Processed 
(Controller Not Busy) 



4661 CD5846 

4664 F5 

4665 Fl 

4666 00 

4667 00 
4666 00 
4669 CDAC43 
466C CB47 
466E C8 
466F 18F8 



CALL 

PUSH 

POP 

NOP 

NOP 

NOP 

CALL 

BIT 

RET 

JR 



AF 
AF 



43ACH 
00H,A 
Z 
4669H 



Send command to controller 

Delay for 19 microseconds 

Delay 

Delay 

Delay 

Delay 

Select drive. Get status 

Test if controller busy 

Exit if controller not busy 

Loop till controller not busy 



Disk Driver 



Calling Sequence: 



4671 329346 

4674 E3 

4675 C5 

4676 46 

4677 23 

4678 7E 

4679 23 
467A 32D346 
467D 7E 

467E 23 
467F 66 

4680 6F 

4681 22A746 

4684 El 

4685 E3 

4686 CD4746 

4689 CD6946 
468C C5 
46 8D D5 
46 8E E5 
46 8F 21EC37 
4692 3600 
4694 11EF37 

4697 CI 

4698 C5 

4699 CI 
46 9A C5 
469B F3 
469C 1803 
469E 0F 
469F 300C 
46A1 7E 
46A2 CB4F 
46A4 28F8 
46A6 F3 
46A7 00 
46A8 00 
46A9 03 
46AA C3A146 



46AD FB 
46AE 7E 
46AF E67C 
46B1 36D0 
46B3 El 
46 B4 Dl 
46B5 CI 
46B6 2823 
46B8 CB57 
46BA 2013 
46BC FE20 
46BE 2811 
46C0 F5 
46C1 3EFF 
46C3 320843 
46C6 CD0046 
46C9 3E0B 
46CB CD5846 
46CE Fl 
46CF 10B5 
46D1 47 
46D2 3E00 
46D4 CB08 
46D6 3803 
46D8 3C 
46D9 18F9 
46DB CI 
46DC C9 



CALL 
DEFB 
DEFB 

LD 

LD 

LD 
LD 

LD 
EX 

PUSH 
LD 
INC 
LD 

INC 
LD 



INC 

LD 

LD 

LD 
POP 
EX 
CALL 

CALL 
PUSH 
PUSH 
PUSH 
LD 
LD 
LD 
POP 
PUSH 
POP 
PUSH 
DI 
JR 
RRCA 
JR 
LD 
BIT 
-JR 
DI 
NOP 
NOP 
INC 
JP 



-EI 
LD 
AND 
LD 
POP 
POP 
POP 
JR 
BIT 
JR 
CP 
JR 
PUSH 
LD 
LD 
CALL 
LD 

CALL 
POP 
DJNZ 
LD 
LD 
RRC 
JR 
INC 
JR 
POP 
RET 



A, CODE A = controller op code for 

read or write 
4671 C = Unit. DE » Track/Sector 
error retry count 
bias value Added to first 
'on 1 list in 2 station 
A, (BC) use for a WRITE command 
(DE) , A use for a WRITE command 

OR 

A, (DE) use for a READ command 

(BC) , A use for a READ command 



(4693H),A 
(SP) ,HL 

BC 

B, (HL) 

HL 

A, (HL) 

HL 

(46D3H) ,A 
A, (HL) 

HL 
H,(HL) 

L,A 

(46A7H) ,HL 

HL 

(SP) ,HL 

4647H 

4669H 

BC 

DE 

HL 

HL,37ECH 

(HL) ,00H 

DE,37EFH 

BC 

BC 

BC 

BC 

46A1H 

NC46ADH 
A, (HL)-« 
01H,A 
Z,469EH 



BC 
46A1H- 



Save disk controller op code 

Parameter list address to HL 

Buffer address to stack 

Save caller's BC 

Fetch retry count 

Bump to next parameter 

Get bias count to add to first 

'ON' bit in status if error 

Bump to next parameter 

Save error bias value 

Get FETCH/STORE instruction 

to or from controller 

Bump to next parameter 

Get FETCH/STORE instruction 

to or from data buffer 

Assemble controller/buffer 

reference commands 

And save in main driver loop 

Caller's BC to HL 

HL = buffer address 

Go select unit. Position to 

track and sector in DE 

Wait for controller to do it 

Save retry count/unit number 

Save track/sector number 

Save buffer address 

Controller command/status register 

Issue READ/WRITE command 

Addr of controller data register 

Delaly and buffer addr. to BC 

Controller needs time to see command 

before requesting status, otherwise 

Status could overwrite command 

Kill interrupts because of PIO code 

Go get status, begin transfer 

Controller busy bit to CARRY 

Go if not busy (Op complete) 

Fetch controller statue 

Ready to transfer a data byte? 

Jump if no, assume op complete 

unnecessary instruction 

FETCH/STORE byte from/to controller 

FETCH/STORE byte from/to buffer 

Bump buffer addr to next byte 

Loop till controller not busy 



Operation Complete 

Check Status and 
Test for Errors 

Transfer done. Enable interrupts 

A,(HL) Get controller status 

7CH Strip NOT READY bit off 

(HL),0D0H Force interrupt to clear controller 

HL Restore buffer address 

DE Restore track/sector address 

BC Restore retry count/unit number 

Z,46DBH Jump if no errors 

02H,A Test for LOST DATA status 

NZ,46CFH Jump if LOST DATA 

20H Test for WRITE FAULT 

Z,46D1H Jump if WRITE FAULT 

AF Save error status 

A,0FFH Force unit to be selected (modify 

(4308H) ,A last unit selected byte) 

4600H Select unit 

A,0BH Restore head command 

4656H Issue restore command 

AF Restore last disk status 

4686H Loop for 'retry' counts 

B,A Status for last operation 

A,00H Bias value to add to error number 

B Right shift error status 

C46DBH until first 'ON' bit detected 

A For each bit shifted, add 1 to bias 

46D4H Loop till an error bit is in CARRY 

BC No error, restore retry count/unit 

Return to caller 



* Read Subroutine Used for Calling Disk Driver 

* Driver Returns to Caller of Read Subroutine 

46DD 3E88 LD A,S8H Read command 

46DF CD7146 CALL 4671H Call disk drives 

46E2 0A DEFB 0AH Retry count if error 

46E3 01 DEFB 01H Bias to be added to the number of 

the first 'ON' bit if e .or 

46E4 1A LD A,(DE) Fetch data byte from controller 

46E5 02 LD (BC) ,A Data byte to caller's buffer 

* Write Subroutine Used for Calling Disk Driver 

* Driver Returns to Caller of Write Subroutine 



46E6 3EA8 


LD 


A,0A8H 


46E8 CD7146 
46EB 05 
46EC 09 


CALL 
DEFB 
DEFB 


4671H 

05H 

09H 


46ED 0A 
46EE 12 


LD 
LD 


A,(BC) 
(DE) ,A 



'FB' 



46 EF 3EA9 
46F1 18F5 



WRITE command. Generate 

data address mark 

Call disk driver 

Retry count if error 

Bias added to number of first 'ON' 

bit in status if error 

Fetch data byte from data buffer 

Send data byte to controller 



Write Subroutine Used for Calling Disk Driver 

Driver Returns to Caller of Write Subroutine 

LD A,0A9H WRITE command. Generate 'FA 

data address mark 
JR 46E8H Use normal write disk call 



— Read Subroutine Used for Calling Disk Driver 

Driver Returns to Caller of Read Subroutine 



READ command 

Call disk driver 

Retry count if error 

Status bias (see comment at 46EC) 

Fetch data byte from controller 

Do not store data in buffer 



Set IX to DCB addr. Save register 

Insure file OPEN 

Signal position call 

Test for physical or logical I/O 

Jump if physical I/O 

Move record number from BC 

to HL, so it can be divided 

Fetch record size 

Divide record no. by record size 

Move quotient (relative physical 

record number) to BC 

Save record offset within sector 

Save relative physical record no. 

Flush sector buffer to disk 

Restore relative physical record no. 

Early exit if any error when 

writing sector buffer 

Move relative sector 

To DCB as next record number 

Force read on next file access 

Test, for end of file 

Early exit if end of file 

Get track/sector for sector no. 

Go if error while translating record 

number to disk address 

Select drive and find track 

Signal good status 

Return to caller 



Set up exit sequence 

Load BC with 

next sector number 

Test for logical vs phy I/O 

Jump if phy I/O, else 

Get record size from DCB 

Test if record size 256 bytes 

Jump if it is 

Else negate record size and 

Subtract record length from 

position in sector buffer 

Go if record crosses sector line 

Decrement sector no. if physical I/O 

or record doesn't cross sector line 

Update DCB, Flush buffer & return 



Rewind File 

Use POSN Code to Position to Record 



Save reg. Set up exit sequence 
Record number for POSN call 
Zero offset in sector buffer 
Use POSN code to rewind file 



Save reg. set up exit sequence 

Load number of records 

in file into BC 

A = offset to EOF in last sector 

Use POSN code to update DCB 



46F3 3E88 


LD 


A,88H 


46F5 CD7146 


CALL 


4671H 


46F8 05 


DEFB 


05H 


46F9 01 


DEFB 


01H 


46FA 1A 


LD 


A, (DE) 


46FB 00 


NOP 




* Position 


File to Specif 


4700 CD9248 


CALL 


4892H 


4703 DDCB01F6 


SET 


06H,(IX+01H) 


4707 DDCB017E 


BIT 


07H,(IX+01H) 


470B 280A 


JR 


Z,4717H 


470D 60 


LD 


H,B 


470E 69 


LD 


L,C 


470F DD7E09 


LD 


A,(IX+09H) 


4712 CD6A4B 


CALL 


4B6AH 


4715 44 


LD 


B, H 


4717 DD7705 


LD 


(IX+05H),A 


471A C5 


PUSH 


BC 


471B CD7848 


CALL 


4878H 


471E CI 


POP 


BC 


471F C0 


RET 


NZ 


4720 DD710A 


LD 


(IX+0AH) ,C 


4723 DD700B 


LD 


(IX+0BH) ,B 


4726 DDCB01EE 


SET 


05H,(IX+01H) 


472A CDB948 


CALL 


48B9H 


472D C0 


RET 


NZ 


472E CDDC48 


CALL 


48DCH 


4731 C0 


RET 


NZ 


4732 CD4746 


CALL 


4647H 


4735 AF 


XOR 


A 


4736 C9 

* 
* 


RET 







Backspace Oper 


4737 CD9248 


CALL 


4892H 


473A DD4E0A 


LD 


C, (IX+0AH) 


473D DD460B 


LD 


B, ( IX+0BH) 


4740 DDCB017E 


BIT 


07H, (IX+01H) 


4744 280D 


JR 


Z.4753H 


4746 DD7E09 


LD 


A, (IX+09H) 


4749 B7 


OR 


A 


474A 2807 


JR 


Z,4753H 


474C ED44 


NEG 




474E DD8605 


ADD 


A, (IX+05H) 


4751 38C4 


JR 


C4717H 


4753 0B 


DEC 


BC 


4754 18C1 


JR 


4717H 



4756 CD9248 


CALL 


4892H 


4759 010000 


LD 


BC,0000H 


475C AF 


XOR 


A 


475D 18B8 


JR 


4717H 


* 





Skip to end 


475F CD9248 


CALL 


4892H 


4762 DD4E0C 


LD 


C,(IX+0CH) 


4765 DD460D 


LD 


B, ( IX+0DH) 


4768 CDD143 


CALL 


43D1H 


476B 18AA 


JR 


4717H 
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Read Processing 



476D CD9248 


CALL 


4892H 


4770 CD7848 


CALL 


4878H 


4773 C0 


RET 


NZ 


4774 DDCB017E 


BIT 


07H, (IX+01H) 


4778 CA0E48 


JP 


Z, 480 EH 


* 





Logical READ 



477B DD4609 


LD 


B, (IX+09H) 


477 E E5 


PUSH 


HL 


477F C5 


PUSH 


BC 


4780 CDBB47 


CALL 


47BBH 


4783 CI 


POP 


BC 


4784 El 


POP 


HL 


4785 C0 


RET 


NZ 


4786 77 


LD 


(HL) ,A 


4787 23 


INC 


HL 


4788 10F4 


DJNZ 


477EH 


478A C9 


RET 




* 


Beginning of WRITE 


47 8B CD9248 


CALL 


4892H 


478E 325E48 


LD 


(485 EH), A 


4791 DDCB017E 


BIT 


07H, (IX+01H) 


4795 CA3E48 


JP 


Z, 483 EH 



Save reg. Set up exit sequence 
Purge buffer if necessary 
Exit if any error while purging 
Test for phy vs logical I/O 
Jump if we must read a sector 
Buffer not ready, or sector I/O 



* Transfer record from sector buffer to user's record area byte 

* by byte. The subroutine at 47BB returns the next byte from 

* the sector buffer. If the buffer is exhaused, the next sector 

* will be read. 



B = record size 

Save user's record area address 
Save byte count (record size) 
Get a byte from sector buffer 
Restore byte count for transfer 
Restore user rec. area address 
Exit if any error during read 
Byte to caller record area 
Bump caller's buffer addr. 
Loop till (B) bytes moved 
Return when record moved 



Save reg. Set up exit sequence 
Initialize VERIFY flag 
Test for logical vs physical I/O 
Jump if physical I/O 

* 

* Logical WRITE 

* 

* Transfer record from user's record area to the file sector 

* buffer byte by byte. The subroutine at 47DA stores the next byte 

* in the sector buffer. If the buffer is full, it is written 

* to disk. 

Get record length in bytes 
Fetch one byte of record from 
user's record area 
Bump to next data byte 
Save fetch address 
Save count of characters moved 
Store char, in sector buffer 
Restore count of chars, moved 
And current user record address 
Exit if any error during write 
Loop till entire record moved 
Return to caller 



Save reg. set up exit sequence 
Load a 1 to specify VERIFY 
Then use WRITE subroutine 



- General Purpose Driver Entry 

Called From Driver Entry at 44BB 



Save reg. set up exit sequence 
Signal logical I/O 
Fetch operation code 
Test for read or write 
Save data for write op code 
Jump if write operation 



Tests for end of file 

Return if EOF. A = 1D/1C 

Need another sector for buffer? 

No, get next byte from record 

Read next sector from file 

Exit if EOF or other error 

Put addr of next record in DE 

Clear status 

Fetch character from sector buffer 

Save character fetched 

Bump to next byte in sector buffer 

Jump if buffer not empty 

Signal read required 

Restore character fetched 

And return to caller 



Save character to be written 

Test if sector buffer full 

Jump if room in sector buffer 

Read next sector from file 

Jump if no error during read 

Error, clear character from stack 

Clear stack 

And return to caller 

Put addr of next byte position 

in sector buffer in DE 

Get character to be written 

Move it to sector buffer 

Bump to next addr. in buffer 

Flag buffer as updated 

Must be purged 

Bump to next position in buffer 

Test for EOF access permission 

Jump if access error 



4798 DD4609 


LD 


B, (IX+09H) 


479B 7E 


LD 


A, (HL) 


479C 23 


INC 


HL 


47 9D E5 


PUSH 


HL 


479E C5 


PUSH 


BC 


479F CDDA47 


CALL 


47DAH 


47A2 CI 


POP 


BC 


47A3 El 


POP 


HL 


47A4 C0 


RET 


NZ 


47A5 10F4 


DJNZ 


479BH 


47A7 C9 


RET 




* 





VERIFY Proc 


47A8 CD9248 


CALL 


4892H 


47AB 3C 


INC 


A 


47AC 18E0 


JR 


478EH 



47AE CD9248 


CALL 


4892H 


47B1 DDCB01FE 


SET 


07H,(IX+01H) 


47B5 78 


LD 


A,B 


47B6 FE02 


CP 


02H 


47B8 79 


LD 


A,C 


47B9 301F 


JR 


NC.47DAH 


* 


- 


— Read Opera 


47BB CDB948 


CALL 


48B9H 


47BE C0 


RET 


NZ 


47BF DDCB016E 


BIT 


05H, (IX+01H) 


47C3 2804 


JR 


Z.47C9H 


47C5 CD0E48 


CALL 


480 EH 


47C8 C0 


RET 


NZ 


47C9 CD8348 


CALL 


4883H 


47CC AF 


XOR 


A 


47CF 1A 


LD 


A, (DE) 


47CE F5 


PUSH 


AF 


47CF DD3405 


INC 


(IX+05H) 


47D2 2004 


JR 


NZ,47D8H 


47D4 DDCB01EE 


SET 


05H, (IX+01H) 


47D8 Fl 


POP 


AF 


47D9 C9 


RET 




* 





Write Operati 


47DA F5 


PUSH 


AF 


47DB DDCB016E 


BIT 


05H, (IX+01H) 


47DF 2808 


JR 


Z,47E9H 


47E1 CD2D48 


CALL 


482DH 


47E4 2803 


JR 


Z,47E9H 


47 E6 E3 


EX 


(SP),HL 


47E7 El 


POP 


HL 


47E8 C9 


RET 




47E9 CD8348 


CALL 


4883H 


47EC Fl 


POP 


AF 


47ED 12 


LD 


(DE),A 


47EE 13 


INC 


DE 


47EF DDCB01E6 


SET 


04H, (IX+01H) 


47F3 DD3405 


INC 


(IX+05H) 


47F6 CDB948 


CALL 


48B9H 


47F9 2006 


JR 


NZ.4801H 



47FB DDCB0176 


BIT 


06H,(IX+01H) 


47FF 2003 


JR 


NZ.4804H 


4801 DD7108 


LD 


(IX+08H) ,C 


4802 DD750C 


LD 


(IX+0CH) ,L 


4804 79 


LD 


A,C 


4805 B7 


OR 


A 


4806 2023 


JR 


NZ,482BH 


4808 DDCB01EE 


SET 


05H, (IX+01H) 


480C 1830 


JR 


4 83 EH 


* 


Read 


Next Sector Fro 


480E DD7E01 


LD 


A, (IX+01H) 


4811 E607 


AND 


07 H 


4813 FE06 


CP 


06H 


4815 3804 


JR 


C481BH 


4817 3E25 


LD 


A,25H 


4819 B7 


OR 


A 


481A C9 


RET 




481B CDB948 


CALL 


48B9H 


481E C0 


RET 


NZ 


481F CD2D48 


CALL 


482DH 


4622 C0 


RET 


NZ 


4823 DD340A 


INC 


(IX+0AH) 


4826 2003 


JR 


NZ,482BH 


4828 DD340B 


INC 


(IX+0BH) 


482B AF 


XOR 


A 


482C C9 

* 


RET 




482D CDDC4 8 


CALL 


48DCH 


4830 C0 


RET 


NZ 


4831 DDCB01AE 


RES 


05H,(IX+01H) 


4835 DD6E03 


LD 


I,, (IX+B3H) 


4838 DD6604 


LD 


H,(IX+04H) 


483B C3DD46 


JP 


46DDH 



Record number to be incremented 

Jump if not 

Update EOF addr in sector buffer 

Update number of records in file 

Current sector buffer offset 

Set status flags for offset 

Go if end of buffer not reached 

Buffer full, force read 

on next access 

Go to common exit for writes 



Fetch access level 
Isolate permission flags 
Test for READ/WRITE access 
Jump if no read protection 
Error code: illegal access 
attempted on protected file 
Set status flags for error code 
Return to caller 
Test for end of file 
Return if end of file 
Read next sector from file 
Exit if error during read 
Bump LSB of next record number 
Jump if no overflow 
Bump MSB of next record number 
Signal good status. No error 
Return to caller 



Get disk addr. for next sector 

Early return if any error 

Clear force read next sector flag 

Load HL with 

Sector buffer address 

Go read sector and ret to caller 



Continuation of WRITE Processing 



483E DD7E01 
4841 E607 
4843 FE05 

4845 3804 
4847 3E25 
4849 B7 
484A C9 
484B CDDC48 
484E C0 



484F 
4852 
4855 
4858 
4859 
485D 
485F 
4860 
4863 
4864 
4867 
4869 
486D 
486F 
4870 
4873 
4876 



DD6E03 

DD6604 

CDE646 

CO 

DDCB01A6 

3E00 

B7 

C4F346 

C0 

CDB948 

2006 

DDCB0176 

20B4 

23 

DD750C 

DD740D 

18AB 



LD 

AND 

CP 

JR 

LD 

OR 

RET 

CALL 

RET 

LD 

LD 

CALL 

RET 

RES 

LD 

OR 

CALL 

RET 

CALL 

JR 

BIT 

JR 

INC 

LD 

LD 



A,(IX+01H) 

07 H 

05H 

C484BH 

A,25H 

A 

48DCH 

NZ 

L,(IX+03H) 

H,(IX+04H) 

46E6H 

NZ 

04H,(IX+01H) 

A,00H 

A 

NZ,46F3H 

NZ 

48B9H 

NZ,486FH 

06H,(IX+01H) 

NZ,4823H 

HL 

( IX+0CH) , L 

(IX+0DH) ,H 

4823H 



Fetch access flags 

Isolate permission 

Test for EXECUTE only or 

restricted file 

Jump if neither true, or 

ret error for illegal access 

Set status flags 

and return to caller 

Get disk address for next sector 

Exit early if any error while 

computing disk address 

LSB of sector buffer address 

MSB of sector buffer address 

Write current sector buffer 

Exit if any error during Write 

Signal sector buffer available 

Load VERIFY flag 

Set status for VERIFY 

Read sector back if VERIFY (ON) 

Exit if any error during read 

Test for end of file 

Jump if end of file encountered 

Test if position call 

Jump if it is 

Bump record number 

and update number of 

records in DCB 

Update record number and exit 



Purge Sector Buffer 



4878 DD7E01 LD A, (IX+01H) Fetch access flags 
487B E690 AND 90H Isolate logical I/O, write access 
487D FE90 CP 90H Test for logical I/O, write access 
487F 28BD JR Z,483EH Go if logical file, test for execute 

4881 AF XOR A signal good status if physical I/O 

4882 C9 RET Return to caller 
* 

* Get addr next record in sector buffer in DE. Compute addr 

* for next byte to be stored/fetched in current logical record 
* 

Current byte offset in sector buffer 
Unnecessary instruction 
Add LSB of buffer addr to offset 
E = LSB of physical buffer addr 
Fetch MSB of sector buffer addr 
Add any carry from LSB addition 
DE = position of record in buffer 
Return to caller 



4883 DD7E05 


LD 




A,(IX+05H) 


4886 4F 


LD 




C,A 


4887 DD8603 


ADD 




A, (IX+03H) 


488A 5F 


LD 




E,A 


488B DD7E04 


LD 




A,(IX+04H) 


488E CE00 


ADC 




A,00H 


4890 57 


LD 




D,A 


4891 C9 


RET 






* 




- 


— Save Reg 


* Stack 


configuration: 


* 




Return address 


* 




IX 




* 




HL 




* 




DE 




* 




BC 




* 




48B3 


4892 1A 


LD 




A, (DE) 


4893 07 


RLCA 






4894 3018 


JR 




NC.48AEH 


4896 Fl 


POP 




AF 


4897 E3 


EX 




(SP) ,HL 


4898 220C43 


LD 




(430CH1.HL 



- For original I/O call 



- Restores preceding context 

A - First byte of DCB 
Position OPEN bit 
Jump if file not open 
Rtn addr to AF. Need to pit 
Buffer addr in it's place 



489B ED530A43 LD 



(430AH) ,DE Save DCB addr 



TRSDOS 2.3 Decoded 255 



SYSO/SYS 



489F 


E3 


EX 


(SP),HL 


48A0 


D5 


PUSH 


DE 


48A1 


DDE3 


EX 


(SP) ,IX 


4 8 A3 


E5 


PUSH 


HL 


48A4 


D5 


PUSH 


DE 


48AS 


C5 


PUSH 


BC 


48A6 


E5 


PUSH 


HL 


48A7 


21B348 


LD 


HL.48B3H 


48AA 


E3 


EX 


(SP),HL 


48AB 


F5 


PUSH 


AF 


48AC 


AF 


XOR 


A 


4 SAD 


C9 


RET 




48AE 


Fl 


POP 


AF 


48AF 


3E26 


LD 


A,26H 


48B1 


B7 


OR 


A 


48B2 


C9 


RET 





Restore buffer addr to HL, 

return address to stack 

Save DCB address on stack 

Save original IX (DCB address) 

Caller's HL to stack 

Caller's DE to stack 

Caller's BC to stack 

Create a hole on the stack 

Exit addr to restore registers 

Exit addr to stack 

Rtn addr for caller of 4892 

Signal no error 

Return to caller of 4892 

Clear rtn addr to 4892 

Error code: file not open 

Set status flag for error code 

Return to orginator of I/O call 



Restore Context After 
I/O Operation 



48B3 CI 
48B4 Dl 
48B5 El 
48B6 DDE1 
48B8 C9 



POP 
POP 
POP 
POP 
RET 



BC 
DE 
HL 
IX 



Restore caller's BC 
Restore caller's DE 
Restore caller's HL 
Restore caller's IX 
Return to I/O caller 



— Test for end of File 

Status codes returned: 

A = 0, not end of file 

A = 1C, end of file 

A = ID, beyond end of file 



48B9 DD6E0A 


LD 


L,(IX+0AH) 


48BC DD660B 


LD 


H,(IX+0BH) 


48BF DD4E05 


LD 


C,(IX+05H) 


48C2 7C 


LD 


A,H 


48C3 DDBE0D 


CP 


(IX+0DH) 


48C6 200F 


JR 


NZ,48D7H 


48C8 7D 


LD 


A,L 


48C9 DDBE0C 


CP 


(IX+0CH) 


48CC 2009 


JR 


NZ,48D7H 


48CE 0D 


DEC 


C 


48CF CD974B 


CALL 


4B97H 


48D2 2003 


JR 


NZ.48D7H 


48D4 F61C 


OR 


1CH 


48D6 C9 


RET 




48D7 3E1D 


LD 


A.1DH 


48D9 D0 


RET 


NC 


48DA AF 


XOR 


A 


48DB C9 


RET 




I 


Locate 


GAP for Cur 


48DC DD6E0A 


LD 


L, (IX+0AH) 


48DF DD660B 


LD 


H,(IX+0BH) 


48E2 3E05 


LD 


A,05H 


48E4 CD844B 


CALL 


4B84H 


48E7 32AA49 


LD 


(49AAH),A 


48EA DDE5 


PUSH 


IX 


48EC E3 


EX 


(SP) ,HL 


48ED 010F00 


LD 


BC,000FH 


48F0 09 


ADD 


HL,BC 


48F1 CI 


POP 


BC 


48F2 3E05 


LD 


A,05H 


48F4 110000 

* 


LD 


DE.0000H 




Top of 


Loop for Se 


48F7 F5 


PUSH 


AF 


48F8 2B 


DEC 


HL 


48F9 7E 


LD 


A, (HL) 


48FA 23 


INC 


HL 


48FB 3C 


INC 


A 


48FC 280B 


JR 


Z,4909H 


48FE E5 


PUSH 


HL 


48FF 62 


LD 


H,D 


4900 6B 


LD 


L,E 


4901 AF 


XOR 


A 


4902 ED42 


SBC 


HL,BC 


4904 380F 


JR 


C4915H 


4906 El 


POP 


HL 


4907 2861 


JR 


Z,496AH 


4909 23 


INC 


HL 


490A Fl 


POP 


AF 


490B 3D 


DEC 


A 


490C 281A 


JR 


Z.4928H 


490E 5E 


LD 


E,(HL) 


490F 23 


INC 


HL 


4910 56 


LD 


D,(HL) 


4911 23 


INC 


HL 


4912 23 


INC 


HL 


4913 18E2 


JR 


48F7H 


GAP'S 







L = next record no. LSB 

H » next record no. MSB 

C » offset to current record 

A = MSB of next record no. 

Compare to MSB of ending record 

Jump if not near end of record 

L = LSB of next record no. 

Compare to LSB of ending record 

Jump if not end of file 

Adjust offset to current record 

Test for EOF in sector buffer 

Jump if not end of file 

Rtn with A = 1C, (end of file flag) 

Return to caller 

Beyond EOF status error code 

Return if past end of file 

Signal no EOF condition 

And return 



L * LSB of next record number 

H «= MSB of next record number 

Modulo no. 

Divide sector modulo 5 to get 

relative granule 

Gives relative granule number (HL) 

and sector number in granule (A) 

DCB addr to stack 

HL « DCB addr, stack - relative 

granule number sought 

Offset to 1st GAP in DCB 

Get DCB (IS) in HL (start of GAPs) 

BC * Q * (sector (log rec no.))/5 

= relative granule number for record 

Number of GAP pairs to search 

Starting emulative granule no. 



Save count of GAP'S tested 
Backspace to 1st byte of GAP 
Load byte 1 of 1st extent pair 
(track no.) to test for end of GAP'S 
Bump to 2nd byte of extent pair, 
no. of consecutive granules assigned 
Inc track to test for end of GAP 
Jump if end of extent (255) 
DCB + 15 + i (i « 0, 1, 2, 3, 4) to 
stack (current GAP address) 
DE = Cumulative granule total 
L « LSB of granule total 
Clear status (CARRY) 
Compare requested granule 
no. to total granules defined 
by GAP's thus far 

Jump if requested relative granule 
number greater than total granules 
counted thus far 

Restore DCB addr. We have the GAP 
Go compute absolute track and sector 
number if requested granule 
is in range of current GAP'S 
Bump to 3 rd byte of extent set 
Get count of extent sets examined 
Loop control. Count 1 set tested 
Jump if all sets in this directory 
entry tested and GAP for this 
granule not found 
Else, get the cumulative 
granule count up through 
this gap in DE and resume testing 
D = 8 MSBits of granule count 
Bump to first byte of next GAP 
Bump to second byte of next GAP 
And continue scanning 



Come Here if the Relative Granule Number — 

is Greater Than the Sum of Granules Accumulated 



4915 24 

4916 7D 



4917 El 

4918 20EF 



INC 
LD 



POP 
JR 



H 
A,L 



HL 
NZ,4909fl 



Gives 1 if difference greater than 256 

L = negative of requested 

relative granule number 

Restore addr of 2nd byte of extent 

Go if difference between requested 

and cumulative granule greater than 

256. Granule can't be in this GAP 



If the difference is < 256, compare it to the 

number of granules assigned to the current GAP because 
the relative rranule may fall within the next GAP 



491A 
491B 5F 
491C 7E 


PUSH 

LD 

LD 


DE 

E,A 

A,(HL) 


491D E61F 
491F 83 


AND 
ADD 


1FH 
A,E 


4920 7B 


LD 


A,E 


4921 Dl 

4922 30E5 


POP 
JR 


DE 
NC.4909H 


4924 ED44 


NEG 




4926 1842 


JR 


496 AH 



Save granule total to free E reg. 

Then get neg. of requested granule 

and total no. of granules -1, 

starting with this track 

(isolate granule count), then 

Compare requested granule 

to no. in this GAP 

Restore neg. of requested granule no. 

to A in case we found needed GAP 

DE = no. of granules passed so far 

Jump if requested granule not in 

this GAP. Go get next GAP 

Convert relative granule no. to 

positive equivalent 

Go compute ABS track & sector number 



4928 CDB549 


CALL 


49B! 


492B C0 


RET 


NZ 


492C E5 


PUSH 


HL 


492D 60 


LD 


H,B 


492E 69 


LD 


L,C 


492F AF 


XOR 


A 


4930 ED52 


SBC 


HL,I 


4932 7D 


LD 


A,L 



4933 329A49 
4936 El 


LD 
POP 


(499AH),A 
HL 


4937 D5 

4938 DDE5 
493A E3 


PUSH 
PUSH 
EX 


DE 
IX 
(SP) ,HL 


493B 110E00 
493E 19 
493F Dl 


LD 

ADD 

POP 


DE,000EH 

HL,DE 

DE 



Relative Granule not in Current GAP'S 

Search Directory Entries Belonging to File for GAP 
containing the relative granule number being sought 

Search dir for GAP owning relative 
granule. On ret, HL = 1st byte of GAP 
owning the relative granule 
Disk error while looking at directory 
HL = track no. for requested granule 
HL * requested relative granule no. 
LSB of relative granule number 
Clear status for arithmetic 
operation. DE = cumulative granule 
through GAP in HL 
Relative granule no. sought minus 
total granules addressable 
through this GAP 
Difference gives no. of granules 
in current GAP. This number will 
be translated into numbers of 
tracks that will be added to the 
starting track number for GAP giving 
track number for relative granule no. 
Used to update track address 
HL = Count of granules/starting 
track for this granule 
Save cumulative granule count 
DCB addr to stack 
DCB addr to HL. Granule no. 
for this GAP to stack 
DE = 15 = start of index for GAP's 
HL - DCB (15) 
DE = count/track no. 
* 

* Search DCB for GAP Matching No. Returned From 49B5 

* 

* On return, HL holds the track and granule count owning 

* the relative granule. DE contains the cumulative granule 

* count addressable through this track. 
* 

* When control returns, the DCB is searched for a matching 

* track number and granule count. If one is found, control 

* goes to 4993 where the absolute track and sector number 

* are computed. If the DCB does not contain the track number, 

* the GAP's in the DCb are moved down one entry and the track, 

* count and cumulative total returned from 49B5 are copied 

* to the 1st GAP entry in the DCB. 
* 

B = no. of GAP's to examine 

A = 1st byte of a GAP. Search the 

GAP's looking for one that matches 

the one in DE 

Bump fetch addr 

Do the track numbers match? 

Jump if not 

Yes, fetch the 2nd byte (count) 

and compare with count in D reg. 

Do they match 

Yes, take the jump 

No, have we examined all GAP's 

Yes, go move GAP's in DCB down 

and move track/count and cumulative 

total returned by 49B5 to 1st 

GAP entry in DCB 

No, bump fetch addr to next GAP 

Skip over the two-byte totals 

that follow each GAP in the DCB 

Go test next GAP 



Save cummulative granule count 

DE = end of GAP's in DCB 

HL = -4 

Now HL = ending addr of GAP's in DCB 

BC = no. of bytes to move (3 sets of 

4 bytes each gives total of 12) 

DE « addr of 5th GAP entry in DCB 



4940 0605 


LD 


B,05H 


4942 7E 


LD 


A, (HL) 


4943 23 


INC 


HL 


4944 BB 


CP 


E 


4945 2006 


JR 


NZ.494DH 


4947 7E 


LD 


A, (HL) 


4948 AA 


XOR 


D 


4949 E6E0 


AND 


0E0H 


494B 2818 


JR 


Z,4965H 


494D 05 


DEC 


B 


494E 2805 


JR 


Z,4955H 


4950 23 


INC 


HL 


4951 23 


INC 


HL 


4952 23 


INC 


HL 


4953 18ED 


JR 


4942H 


* 


Move 


GAP'S in DCB 


4955 D5 


PUSH 


DE 


4956 EB 


EX 


DE,HL 


4957 21FCFF 


LD 


HL, 0FFFCH 


495A 19 


ADD 


HL,DE 


495B 010C00 


LD 


BC,000CH 



256 Appendix II 



SYSO/SYS 



4960 EB EX DE,HL Move all GAP entrys down one 

4961 CI POP BC BC « count/track no. for 

requested granule 

4962 Dl POP DE DE = requested granule no. HL = 

DCB addr of GAP for this granule 

* Found Matching GAP in DCB 

Go update DCB and compute 
absolute track and sector no. 
Save granule track count in DCB 
HL = GAP entry, DE = DCB addr 
Clear stack 
Go compute absolute disk addr 



Save no. of granules in GAP 

B = 2nd byte of extent pair (no. 

of consecutive sectors) 

Backspace to track number 

C = 1st byte of extent pair 

(track no.) 

HL = 2nd byte of extent pair 

Get count of extent pairs examined 

And make it negative so we can 

Subtract 4 from it 

Jump if first or second extents 

Gives 4/3/2/1 

Times 2 gives 16/12/8/4 

Number of bytes to transfer 

Save target GAP (trk/count) 

Save cumulative granule total 

DE = addr of GAP owning relative gran 

HL = - 4 

HL = addr of 2nd byte of 

previous extent pair 

Set BC to byte count of GAPs to move 

Down for LDDR instruction 

Move all GAPs after target GAP down 

HL = ending address for target GAP 

DE = cumulative granule count 

BC = target GAP (track/count) 

Unnecessary instruction 

Granule count for target GAP 

Skip back to next entry 

Track number for target GAP 

Backspace DCB pointer 

MSB of cumulative granule count 

Backspace DCB pointer 

LSB of cumulative granule count 

H = cum granule count for this GAP 

L = track no. for current GAP 



Now isolate the starting granule 

number for this gap. Then add the 

number of granules past 

the start of the GAP (409A) to the 

granule we want. This will give 

us the number of tracks past the 

starting track to the target granule 

Isolate offset to first granule 

Add no. of granules past first 

one to target granule 

Save rel. granule no. within GAP 

Now, any overflow should be 

added to the starting track 

isolate and right justify 

overflow for track increment 

Save for adding to starting track no. 

Refetch rel. granule no. within GAP 

Isolate the odd/even bit so we 

can compute starting track 

offset {even-0, odd -4) 

odd/even flag * 2 

* 4 

* 5 

add sector no. within granule to get 
absolute sector no. within track 
E = starting sector no. on track 
A = 1st byte of extent pair (track) 
Add track increment for granule 
number within GAP 
D = track no. 
C = drive number for file 
Signal qoco status 
Ret to caller. DE = track/sector 

Find GAP for Relative Granule no. in BC 

by searching directory entries belonging to file. 
Read overflow directory entries if necessary. 

On entry BC = granule number, on exit: 

L = track 

H = count of granules assigned to track 

DE = cumulative number of granules thru this GAP 

Save requested granule no. 

Initialize count of granules skipped 

B = sector no. for directory 

entry and offset 

Store sector number and 

Offset in case GAP must be assigned 

C = Unit no. 

Read directory entry for file 

Offset to extent pairs. HL contains 

address of entry 



4963 1825 


JR 


498AH 


4965 72 


LD 


(HL) ,D 


4 966 EB 


EX 


DE,HL 


4967 Fl 


POP 


AF 


4968 1829 


JR 


4993H 


* Convert Granule no. & GA 
* 


496A 329A49 


LD 


(499A),A 


496D 46 


LD 


B, (HL) 


496E 2B 


DEC 


HL 


496F 4E 


LD 


C,(HL) 


4970 23 


INC 


HL 


4971 Fl 


POP 


AF 


4972 2F 


CPL 




4973 C604 


ADD 


A,04H 


4975 301A 


JR 


NC,4991H 


4977 3C 


INC 


A 


4978 07 


RLCA 




4979 07 


RLCA 




497A C5 


PUSH 


BC 


497B D5 


PUSH 


DE 


497C EB 


EX 


DE,HL 


497D 21FCFF 


LD 


HL,0FFFCH 


4980 19 


ADD 


HL,DE 


4981 0600 


LD 


B,00H 


4983 4F 


LD 


C,A 


4984 EDB8 


LDDR 




4986 EB 


EX 


DE,HL 


4 987 Dl 


POP 


DE 


4988 CI 


POP 


BC 


4989 00 


NOP 




498A 70 


LD 


(HL) ,B 


498B 2B 


DEC 


HL 


498C 71 


LD 


(HL),C 


498D 2B 


DEC 


HL 


498E 72 


LD 


(HL) ,D 


498F 2B 


DEC 


HL 


4990 73 


LD 


(HL) ,E 


4991 60 


LD 


H,B 


4992 69 

* 


LD 


L,C 


* 


Beg 


in Disk Addr 


4993 7C 


LD 


A,H 


4994 07 


RLCA 




4995 07 


RLCA 




4996 07 


RLCA 




4997 E607 


AND 


07 H 


4999 C600 


ADD 


A.00H 


499B 5F 


LD 


E,A 


499C E6FE 


AND 


0FEH 


499E 0F 


RRCA 




499F 32AE4 9 


LD 


(49AEH) ,A 


49A2 7B 


LD 


A,E 


4 9A3 E601 


AND 


01H 


49A5 5F 


LD 


E,A 


49A6 07 


RLCA 




49A7 07 


RLCA 




49A8 83 


ADD 


A,E 


49A9 C600 


ADD 


A,00H 


49AB 5F 


LD 


E,A 


49AC 7D 


LD 


A,L 


49AD C600 


ADD 


A,00H 


4 9AF 57 


LD 


D,A 


4 9B0 DD4E06 


LD 


C, (IX+06H) 


49B3 AF 


XOR 


A 


49B4 C9 


RET 





49B5 C5 


PUSH 


BC 


49B6 110000 


LD 


DE.0000H 


49B9 DD4607 


LD 


B, (IX+07H) 


49BC 78 


LD 


A,B 


49BD 32BE4A 


LD 


(4ABEH) ,A 


49C0 DD4E06 


LD 


C, (IX+06H) 


4 9C3 CDC14A 


CALL 


4AC1H 


49C6 011600 


LD 


BC0016H 



49C9 09 
49CA EB 
49CB CI 
49CC C0 
49CD 1A 
49CE FEFE 
49D0 301F 

49D2 13 
49D3 1A 
49D4 E5 
49D5 E61F 
49D7 3C 
49D8 85 
49D9 6F 
49DA 3001 
49DC 24 
49DD E5 
49DE 2B 

49DF AF 
49E0 ED42 

49E2 El 
49E3 3004 

49E5 13 
49E6 PI 
49E7 18E4 
49E9 El 
49EA EB 

49EB 7E 

49EC 2B 
49ED 6E 
49EE 67 
49EF AF 
49F0 C9 



49F1 C5 
49F2 EB 



49F5 23 
49F6 46 
49F7 18C3 



49F9 CD004A 
49FC CI 
49FD C0 
49FE 18B5 



ADD 


HL,BC 


EX 


DE,HL 


POP 


BC 


RET 


NZ 


LD 


A, (DE) 


CP 


0FEH 


JR 


NC,49F1H 


INC 


DE 


LD 


A, (DE) 


PUSH 


HL 


AND 


1FH 


INC 


A 


ADD 


A,L 


LD 


L,A 


JR 


NC49DDH 


INC 


H ' 


PUSH 


HL 


DEC 


HL 


XOR 


A 


SBC 


HL,BC 


POP 


HL 


JR 


NC,49E9H 


INC 


DE 


POP 


AF 


JR 


49CDH 


POP 


HL 


EX 


DE,HL 



XOR 

RET 



A, (HL) 



L, (HL) 

H,A 

A 



Form address of GAP extents 

DE = address of extent pairs 

BC = requsted granule no. 

Ret if error when reading directory 

Get byte one of GAP from dir sector 

Test for overflow extent pair 

Jump if FE or FF (end of extents 

or overflow GAP found) 

No, then bump to next byte in GAP 

Fetch count of granules 

Save count of granules skipped 

Isolate granule count -1 

Bump to get true count 

Add to count of granules passed 

If value overflows 2*16, bump MSB 

Skip bump if no overflow 

Bump MSB of granules skipped 

Save update count of granules skipped 

Adjust granules skipped for 

comparison with requested granule no. 

Clear carry flag 

Compare requested granule (BC) with 

granule count thru this GAP (HL) 

Restore true granule count 

Jump if requested granule exists 

within this GAP range 

Bump to 2nd byte of next GAP 

Clear stack 

Loop till GAP or FE/FF encountered 

Clear stack (requested granule no.) 

HL = addr of 2nd byte for GAP entry 

wanted. DE = accumulated gran count 

A = count of granules assigned 

from this track 

Backspace to first byte of GAP 

L = track no. 

H = count of granules assigned 

Signal no error 

Ret to caller. Target GAP located 



Locate Overflow Entry or Assign a New GAP 



PUSH 
EX 



BC 
DE,HL 



B, (HL) 



Save requested granule no. 
HL = addr of dir sector entry 
DE = count of granules skipped 
Jump if FF, GAP is assigned. Could 
not be EOF since earlier tests would 
have detected it, therfore 
must be a write. 
Otherwise an overflow indicator 
(FE) was found 

B = offset to sector containing 
overflow entry. 
JR 49BCH Go locate the overflow GAP's 

Assign a GAP 

CALL 4A00H Assign next GAP 
POP BC Restore requested granule no. 

RET N2 Exit if error 

JR 49B5H Restart scan. Should find GAP 
just assigned and exit at 49F0 



Granule Assignment 

r on entry: 

BC = requested granule number (target granule) 

DE = Number of granules presently assigned 

HL = Address of file entry in directory sector 

This point is reached when a granule number required for a WRITE 
does not exist in the GAP chain for the file. This situation 
will occur when a file is being created. Or, if a file has 50 
sectors assigned to it, and a request to write sector 60 was 
received, for example, granules for the space between sectors 
50 and 60 would be assigned. 

Assignment can take two forms. First is when a granule is assigned 
to an existing GAP. The second occurs if it is not possible 
to add granules to a GAP. This case occurs when a GAP is full, 32 
granules have been assigned, or when it is impossible to assign the 
next consecutive granule to an existing GAP. In both cases, a 
new GAP must be created and added to the DCB. If the GAP area in 
the DCB is full, an overflow directory entry is created. 

Save target granule number 

Get overflow pointer to dir entry 

and drive number 

Go read GAT sector into 4D00 

Target granule number 

Ret if error while reading GAT 

Save address of directory sector 

H = MSB of target granule 

L = LSB of target granule 

Clear CARRY flag 

Target gran minus assigned grans 

BC = Difference between requested 

and current granule number 

Relative granule in last GAP 

and number of grans to allocate 

Load directory sector entry 

Bump to 2nd byte of last GAP entry 

Bump no. of granules to allocate 

Get sector no. for directory entry 

Isolate then compute advanced 

starting position in GAT 



4A00 C5 


PUSH 


BC 


4A01 DD4607 


LD 


B, (IX+07H) 


4A04 DD4E06 


LD 


C,(IX+06H) 


4A07 CDF04A 


CALL 


4AF0H 


4A0A CI 


POP 


BC 


4A0B C0 


RET 


NZ 


4A0C E5 


PUSH 


HL 


4A0D 60 


LD 


H,B 


4A0E 69 


LD 


L,C 


4A0F AF 


XOR 


A 


4A10 ED52 


SBC 


HL,DE 


4A12 44 


LD 


B,H 


4A13 4D 


LD 


C,L 


4A14 03 


INC 


BC 


4A15 Dl 


POP 


DE 


4A16 13 


INC 


DE 


4A17 03 


INC 


BC 


4A18 DD7E07 


LD 


A, (IX+07H) 


4A1B E607 


AND 


07 H 



TRSDOS 2.3 Decoded 257 



SYSO/SYS 



4A1D 07 KLCA by multiplying directory sector 

4A1E 07 RLCA number times 4 

4A1F 6F LD L,A Form beginning GAT search address 

4A20 264D LD H,4DH Gives HL = 4D00 +(4 * sector no.) 
4A22 C5 PUSH BC Save no. of granules to allocate 

and relative granule within GAP 

* Test for Initial GAP Assignment, or GAP Full 



4A23 7B 


LD 


A,E 


4A24 E61E 


AND 


1EH 


4A26 FE16 


CP 


1611 


4A28 2844 


JB 


Z,4A6E1I 


4A2A ID 


DEC 


E 


4A2B ID 


DEC 


E 


4A2C 1A 


LD 


A, (DE) 


4A2D E61F 


AND 


1FH 


4A2F 3C 


INC 


A 


4A30 4F 


LD 


C,A 


4A31 FE20 


CP 


2811 


4A33 281F 


JR 


Z,4A54H 



Get LSB of current GAP addr 

Isolate it and test for 

First GAP word addr 

Jump if first GAP assignment 

Else backspace to 

Previous GAP (2nd byte) 

No. of consecutive granules -1 

Isolate granule count 

Plus one gives true count 

C = number of consecutive grans 

Test if granule count field full 

Jump if GAP full, Assign new GAP 



GAP not Full, try to Assign a Granule — 



4A35 


1A 


LD 


A, (DE) 


4A36 
4A38 
4A39 
4A3A 
4A3B 


E6E0 

07 

07 

07 

81 


AND 

RLCA 

RLCA 

RLCA 

ADD 


0E0H 
A,C 


4A3C 
4A3D 
4A3F 


47 

CB38 

E601 


LD 

SRL 

AND 


B,A 
B 

01H 


4A41 
4A4 2 


4F 
IB 


LD 
DEC 


C,A 

DE 


4A43 
4A44 
4A45 


1A 
13 
80 


LD 

INC 

ADD 


A,(DE) 

DE 

A,B 



4A46 6F 
4A47 26 4D 



4A4 9 FE23 
4A4B 3007 



4A4E 46 
4A4F CD5D4B 
4A52 2848 



4A54 1C 
4A55 1C 
4A56 7B 

4A57 E61E 
4A59 FE1E 
4A5B 2011 



LD 
LD 



L,A 
H,4DH 



23H 

NC,4A54H 



Refetch 2nd byte. Count of 

consecutive grans already assigned 

Isolate offset to first gran in GAP 

Isolate starting sector offset and 

move to bit 0. Will give a value 

Of or 1 in the A-reg. 

Add no. of consecutive grans to get 

total grans assigned to GAP 

Convert granules to tracks 

By dividing number of grans by 2 

Isolate bit that tells us which 

gran must be assigned next to be 

consecutive with current GAP 

Save bit mask for required gran 

Backspace to 1st byte of GAP 

(starting track number) 

Get starting track no. of this GAP 

DE = addr of 2nd byte of GAP 

Add no. of consecutive tracks 

now assigned to GAP to get next 

track no. to assign. This track no. 

is used as index into GAP 

Form GAT addr for needed track 

Gives 4D00 + (last track assigned 

in current GAP) 

Test if end of GAT reached 

If so, must start another GAP 



Test if Required Granule is Available — 
LD A,C 



A = bit needed in GAT entry for 
consecutive assignment of this track 
LD B, (HL) Fetch track available word 
CALL 4B5DH Test if needed gran is available 
JR Z,4A9CH Jump if available, otherwise test 
for end of GAP string in dir entry 

Assign a New GAP 

INC E Bump E to point to 

INC E 2nd byte of next GAP 

LD A,E Then test for end of GAP'S in 

this directory entry. 
AND 1EH Isolate LSB of addr for next GAP 
CP 1EH Test for 30 (last pair in an entry) 
JR NZ,4A6EH Go if not last pair of GAP for this 

entry, else create new GAP entry 



Make Initial GAP Byte 2 Assignment 



GAP Area is Full. Create an Overflow Entry 



4A6B 3EB4 
4A6D EF 



Rewrite GAT and directory entry 
Clear stack in case of error 
Exit if error while writing 
Save target granule number 
Build overflow directory entry 
Restore target granule number 
Go if error while creating entry 
Restart GAP assignment and 
return to caller at 49F0 



Call SYS2 to Build Overflow Entry 

LD A,0B4H Call SYS2/SYS option 3 
RST 28H Build overflow directory entry 
Ret to 4A66 



4ASD CDB64A 


CALL 


4AB6H 


4A60 CI 


POP 


BC 


4A61 C0 


RET 


NZ 


4A62 C5 


PUSH 


BC 


4A63 CD6B4A 


CALL 


4A6BH 


4A66 CI 


POP 


BC 


4A67 C0 


RET 


NZ 


4A68 C3B549 


JP 


49B5H 



Granule Assignment for new GAP 



4A6E 0602 


LD 


B, 02H 


4A70 7D 


LD 


A,L 


4A71 FE23 


CP 


23 H 


4A73 3007 


JR 


NC,4A7CH 


4A75 7E 


LD 


A, (HL) 


4A76 3C 


INC 


A 


4A77 2010 


JR 


NZ.4A89H 


4A79 2C 


INC 


L 


4A7A 18F4 


JR 


4A70H 


4A7C 2E00 


LD 


L,00H 


4A7E 10F0 


DJNZ 


4A70H 


4A80 CI 


POP 


BC 


4A81 CDB64A 


CALL 


4AB6H 


4A84 C0 


RET 


NZ 


4A85 3E1B 


LD 


A,]BH 


4A87 B7 


OR 


A 


4A88 C9 


RET 





Times to scan allocation table 

L = current track no. 

Test if end of GAT 

Yes, jump if all tracks tested 

No, fetch a GAT entry 

Test if any granules available 

Jump if some available 

Else bump to next entry 

And loop till table exhausted 

Restart scan from GAT table beginning 

Have we scanned table twice? 

No, restart scan 

Yes, write GAT table back to disk 

And updated directory entry 

Rtn if error write writing GAT 

Disk space full error status 

Set status flag for error code 

And return to caller 



4A89 3EFF 


LD 


A,0FFH 


4A8B 12 


LD 


(DE) ,A 


4A8C 0E00 


LD 


C,00H 


4A8E 46 


LD 


B, (HL) 


4A8F 79 


LD 


A,C 


4A90 CD5D4B 


CALL 


4B5DH 


4A93 2807 


JR 


Z.4A9CH 


4A95 1A 


LD 


A, (DE) 


4A96 C620 


ADD 


A,20H 


4A98 12 


LD 


(DE) ,A 


4A99 0C 


INC 


C 


4A9A 18F3 


JR 


4A8FH 


4A9C 79 


LD 


A,C 


4A9D CD3946 


CALL 


4639H 


4AA0 B6 


OR 


(HL) 


4AA1 77 


LD 


(HL) ,A 


4AA2 ID 


DEC 


E 


4AA3 1A 


LD 


A,(DE) 


4AA4 3C 


INC 


A 


4AA5 2002 


JR 


NZ.4AA9H 


4AA7 7D 


LD 


A,L 


4AA8 12 


LD 


(DE) ,A 


4AA9 1C 


INC 


E 


4AAA 1A 


LD 


A,(DE) 


4AAB 3C 


INC 


A 


4AAC 12 


LD 


(DE) ,A 


4AAD CI 


POP 


BC 


4AAE 0B 


DEC 


BC 


4AAF C5 


PUSH 


BC 


4AB0 7 8 


LD 


A,B 


4AB1 Bl 


OR 


C 


4AB2 C22C4A 


JP 


NZ,4A2CH 


4AB5 CI 


POP 


BC 


4AB6 DD4E06 


LD 


C, (IX+06H) 


4AB9 CD034B 


CALL 


4B03H 


4ABC C0 


RET 


NZ 


4ABD 0600 


LD 


B, 00H 


4ABF 1815 


JR 


4AD6H 



Set no. of consecutive grans assigned 

to -1, DE = address of 2nd 

byte of current GAP 

in 2nd byte of current GAP 

Value used to build BIT 0,B instr 

Refetch GAT entry to test Bit 

Prepare to build BIT X,B instruction 

Go do it. Test for 1st or 2nd gran 

in track being assigned 

Jump if first granule assigned 

(starting sector no. is zero) 

Else 2nd granule in track assigned 

Set Bit 5 of 2nd byte of GAP then 

save 2nd byte of GAP 

Bump to next bit in GAT entry 

Must be availible granule 

Retest. This time we should take 

the branch at 4A90 

A = value for bit to be turned on 

- Bit 0, 1 = Bit 1, etc. 

Turn on bit in A reg. 

Combine with rest of GAT entry 

And save updated GAT entry 

Skip back to 1st entry of GAP 

Fetch it (track no. or FF) 

Test for new track assignment or 

extension to existing track 

(call from 4A52) 

Go if extension, else its 

a new track assignment 

LSB of current GAT address is 

track no. for this GAP. Save it 

Bump to 2nd byte of GAP 

Fetch 2nd byte 

Inc no. of assigned granules 

And restore. For initial assignment 

{gives track/00) 

Fetch count of grans to allocate 

Decrement and test for through 

Save new count then 

Test if we're done 

Set status flags for test 

Not done, go allocate another 

Done. Clear stack, write updated 

GAT and directory entry 

Get drive number 

Write updated GAT 

Return if error during write 

B = sector number & offset (IX+7) 

Write updated directory entry 

and return to caller 



READ Directory Entry for Directory Sector in : 



4AC1 C5 


PUSH 


BC 


4AC2 D5 


PUSH 


DE 


4AC3 CD1E4B 


CALL 


4B1EH 


4AC6 2009 


JR 


NZ,4AD1H 


4AC8 E5 


PUSH 


HL 


4AC9 2E00 


LD 


L,00H 


4ACB CD354B 


CALL 


4B35H 


4ACE El 


POP 


HL 


4ACF 2802 


JR 


Z.4AD3H 


4AD1 3E11 


LD 


A,11H 


4AD3 Dl 


POP 


DE 


4AD4 CI 


POP 


BC 


4AD5 C9 


RET 





Save dir sector number/unit 

Preserve caller's DE 

Get track and sector no. into DE 

addr of file entry into HL 

Jump if sector no. out of range 

Save caller 1 s HL 

Force buffer addr to page boundry 

Read directory sector 

Restore caller's HL 

jump if no error during READ, else 

Signal directory read error 

Restore caller's DE 

And sector number/unit before 

Returning to caller 



WRITE Directory Sector Specified in B 



4AD6 C5 


PUSH 


BC 


4AD7 D5 


PUSH 


DE 


4AD8 CD1E4B 


CALL 


4B1EH 


4ADB 2010 


JR 


NZ,4AEDH 


4ADD 2E00 


LD 


L,00H 


4ADF CDEF46 


CALL 


46EFH 


4AE2 2007 


JR 


NZ,4AEBH 


4AE4 CDF346 


CALL 


46F3H 


4AE7 FE06 


CP 


06 H 


4AE9 2802 


JR 


Z.4AEDH 


4AEB 3E12 


LD 


A,12H 


4AED Dl 


POP 


DE 


4AEE CI 


POP 


BC 


4AEF C9 


RET 





Save sector number/unit 

Save caller's DE 

Get directory track/sector no. in DE 

Jump if sector no. out of range 

Force buffer addr to page boundry 

Write directory sector 

Jump if error during WRITE 

Read sector to verify write 

Test for good read 

Jump if no error during read 

Directory write error code 

Restore caller's DE 

And sector number/unit 

Then return to caller 



READ GAT Sector for Unit in C 



4AF0 D5 


PUSH 


DE 


4AF1 E5 


PUSH 


HL 


4AF2 CD554B 


CALL 


4B55H 


4AF5 1E00 


LD 


E,00H 


4AF7 21004D 


LD 


HL.4D00H 


4AFA CD354B 


CALL 


4B35H 


4AFD El 


POP 


HL 


4AFE Dl 


POP 


DE 


4AFF C8 


RET 


Z 


4B00 3E14 


LD 


A,14H 


4B02 C9 


RET 





Save caller's DE 

Save caller's HL 

Get directory track number into D 

Set sector no. to (GAT sector) 

Set buffer address = 4D00 

Read GAT sector for unit in C 

Restore caller's HL 

Restore caller's DE 

Return if no error during read 

Else signal GAT read error 

Then return to caller 



WRITE GAT Sector for Unit in C 



4B03 D5 


PUSH 


DE 


4B04 E5 


PUSH 


HL 


4B05 CD554B 


CALL 


4B55H 


4B08 1E00 


LD 


E,00H 


4B0A 21004D 


LD 


HL,4D00H 



Save caller's DE 

Save caller's HL 

Get directory track number into D 

E = GAT sector number 

Buffer address for sector 



258 Appendix IT 



SYSO/SYS 



4B0D CDEF46 


CALL 


46EFH 


4B10 2007 


JR 


NZ,4B19H 


4E12 CDF346 


CALL 


46F3H 


4B15 FE06 


CP 


06 H 


4B17 2802 


JR 


Z,4B1BH 


4B19 3E15 


LD 


A,15B 


4B1B El 


POP 


HL 


4B1C Dl 


POP 


DE 


4 BID C9 


RET 





Write updated GAT sector 
Jump if error during write 
Else read sector just written 
Test for error during read 
Jump if no error during read 
Else signal GAT write error 
Restore caller's HL 
Restore caller's DE 
Ret to caller w/status in A reg. 



Prepare Registers for Directory I/O 



Entry conditions : B = system sector number 

f C = unit number 



Exit conditions 



4B1E CD554B 


CALL 


4B55H 


4B21 78 


LD 


A,B 


4B22 E6E0 


AND 


0E0U 


4B24 6F 


LD 


L,A 


4B25 2642 


LD 


H,42U 


4B27 AS 


XOR 


B 


4B2B FE08 


CP 


08H 


4B2A 3005 


JR 


NC4B31H 


4B2C C602 


ADD 


A,02H 


4B2E 5F 


LD 


E,A 


4B2F AF 


XOR 


A 


4B30 C9 


RET 




4B31 3E10 


LD 


A,10H 


4B33 B7 


OR 


A 


4B34 C9 


RET 





DE = track/sector number 

HL = sector buffer addr for file entry 

AF = non-zero status - sector out of range 



Get track number for unit in C 

B = offset for file entry in dir 

Isolate file entry number 

LSB of buffer addr for file 

HL = 42XX (XX = rel offset to file) 

Isolate sector number (bits 0-4) 

Test for sector out of range 

Jump if sector out of range 

Form true sector number 

And move to E-reg 

Signal no error 

Ret W/HL = sector file entry addr 

Error code, sector no. out of range 

Set status flags for error 

And return to caller 



Subroutine for Calling Disk Driver 

Entry conditions : 

DE «= track/sector number 
C = unit number 
HL = sector buffer address 



4B35 


CDDD46 


CALL 


46DDH 


4B38 


D606 


SUB 


06 H 


4B3A 


C8 


RET 


Z 


4B3B 


C606 


ADD 


A,06H 


4B3D 


C0 


RET 


NZ 


4B3E 


D5 


PUSH 


DE 


4B3F 


110000 


LD 


DE,0000H 


4B42 


CDDD46 


CALL 


46DDH 


4B45 


Dl 


POP 


DE 


4B46 


C0 


RET 


NZ 


4B47 


E5 


PUSH 


HL 


4B48 


23 


INC 


HL 


4B49 


23 


INC 


HL 


4B4A 


56 


LD 


D, (HL) 


4B4B 


3E04 


LD 


A,04H 


4B4D 


81 


ADD 


A,C 


4B4E 


6F 


LD 


L,A 


4B4F 


2643 


LD 


H,43H 


4B51 


72 


LD 


(HL),D 


4B52 


El 


POP 


HL 


4B53 

* 


18E0 


JR 


4B35H 


* 





Return Directory Tr< 


4B55 


3E04 


LD 


A,04H 


4B57 


81 


ADD 


A,C 


4B58 


6F 


LD 


L,A 


4B59 


2643 


LD 


H,43H 


4B5B 


56 


LD 


D, (HL) 


4B5C 


C9 


RET 





Call disk driver for read 

Test if operation terminated normally 

Return if yes 

Unncessary instruction 

Unnecessary instruction 

Save disk addr where error occurred 

Track sector (Boot loader addr 

Read track Sector 

Restore addr of disk error 

Return to caller with bad status 

if boot sector read error 

Save original buffer address 

Bump to 2 byte 

Of boot loader 

Fetch directory track number 

from boot loader 

Offset to directory table 

Add drive number to table offset 

Then form directory table address for 

drive specified in C 

and save directory track number 

Restore caller's buffer address 

Go retry operation 



Offset to directory table 

Add drive number to offset 

Then form directory table address 

For drive in HL 

Get dir track no. for unit in C 

Return to caller 



4B5D E607 


AND 


07 H 


4B5F 07 


RLCA 




4B60 07 


RLCA 




4B61 07 


RLCA 




4B62 F640 


OR 


40H 


4B64 32684B 


LD 


(4B68H) ,A 


4B67 CB40 


BIT 


00H,B 


4B69 C9 


RET 





Build and execute an instruction to test the bit given by the value 
in the A-register for the quantity in the B-register. 

Isolate bit position to be tested 

Left shift 

Bit value three 

places before 

Build 2nd half of BIT (A) ,B instr 

Save 2nd half of instruction 

Then execute it 

and return to caller 

Compute sector number for record number in DE. Record length 
in A. Sector number = (rec.size (A) * record number (DE)/256. 
Called from POSN 



Save caller's BC 

Record number to DE 

Record length to C 

Set up to multiply record length 

by record size using shift add method 

Initialize product as zero 

Maximum shift count 

Shift prod, left for each bit tested 

Shift bits into CARRY for ADC below 

They will migrate into the product 

Test for 'ON' bit in record length 

Jump if no 'ON' bit 

Add record number to product 

Pick up any possible CARRY from L 

Loop till 8 record length bits tested 

MSB of product 

Remainder (offset in sector of record 

LSB of product 



4B6A 


C5 


PUSH 


BC 


4B6B 


EB 


EX 


DE,HL 


4B6C 


4F 


LD 


C,A 


4B6D 


210000 


LD 


HL,0000H 


4B70 


7D 


LD 


A,L 


4B71 


0608 


LD 


B,08H 


4B73 


29 


ADD 


HL,HL 


4B74 


17 


RLA 




4B75 


CB01 


RLC 


C 


4B77 


3003 


JR 


NC,4B7CH 


4B79 


19 


ADD 


HL,DE 


4B7A 


CE00 


ADC 


A,00H 


4B7C 


10F5 


DJNZ 


4B73H 


4B7E 


4F 


LD 


C,A 


4B7F 


7D 


LD 


A,L 


4B80 


6C 


LD 


L,H 



4B81 61 


LD 


H,C 


MSB of product 


4B82 CI 


POP 


BC 


Restore caller's BC 


4B83 C9 


RET 




Return to caller 



Modulo division routine on entry: HL = dividend, A = divisor. 
Upon exit HL = quotient, A = remainder. Shift the most significant 
bit out of HL into the A-reg one bit at a time. Whenever the A-reg 
is >= the modulus, or full, decrement it by the modulo * value 
and bump the quotient. 

Save caller's DE 

D = divisor 

Maximum number of bits to test 

Zero A, CARRY 

Shift dividend left 1 bit 

overflow to CARRY 

CARRY to Bit 0. Bit 7 to CARRY 

Jump if remainder is large 

Else compare it to the modulus 

Jump if remainder <= to modulus 

Else, adjust remainder 

And quotient 

All bits been tested? 

Jump if not 

Yes, restore caller's DE 

and return 



Fetch offset EOF from DCB 

Adjust offset by one 

Compare to current record offset 

Invert CARRY for test beyond EOF 

Readjust offset 

and return to caller 

Inc P-register for assembler 



4B84 D5 


PUSH 


DE 


4B85 57 


LD 


D,A 


4B86 1E10 


LD 


E,10H 


4B88 AF 


XOR 


A 


4B89 29 


ADD 


HL,HL 


4B8A 17 


RLA 




4B8B 3803 


JR 


C4B90H 


4B8D BA 


CP 


D 


4B8E 3802 


JR 


C4B92H 


4B90 92 


SUB 


D 


4B91 2C 


INC 


L 


4B92 ID 


DEC 


E 


4B93 20F4 


JR 


NZ,4B89H 


4B95 Dl 


POP 


DE 


4B96 C9 

* 


RET 




* 

4B97 DD7E08 


LD 


A, (IX+08H) 


4B9A 3D 


DEC 


A 


4B9B 91 


SUB 


C 


4B9C 3F 


CCF 




4B9D 03 


INC 


BC 


4B9E C9 


RET 




4B9F 00 

* 


NOP 




4BA0 AF 


XOR 


A 


4BA1 C9 


RET 




* 


RST 28 


Processing. 


4BA2 E3 


EX 


(SP),HL 


4BA3 El 


POP 


HL 


4BA4 B7 


OR 


A 


4BA5 F21243 


JP 


P.4312H 


4BA8 E5 


PUSH 


HL 


4BA9 67 


LD 


H,A 


4BAA 3A0E43 


LD 


A, (430EH) 


4BAD AC 


XOR 


H 


4BAE E60F 


AND 


0FH 


4BB0 7C 


LD 


A,H 


4BB1 320E43 


LD 


(430EH),A 


4BB4 2837 


JR 


Z,4BEDH 


4BB6 D5 


PUSH 


DE 


4BB7 C5 


PUSH 


BC 


4BB8 E60F 


AND 


0FH 


4BBA FE08 


CP 


08H 


4BBC 3802 


JR 


C,4BC0H 


4BBE C618 


ADD 


A,18H 


4BC0 47 


LD 


B,A 


4BC1 32A744 


LD 


(44A7H) ,A 


4BC4 AF 


XOR 


A 


4BC5 32A144 


LD 


(44A1H),A 


4BC8 ED62 


SBC 


HL,HL 


4BCA 22AA44 


LD 


(44AAH) ,HL 


4BCD 4F 


LD 


C,A 


4BCE CDC14A 


CALL 


4AC1H 


4BD1 C20944 


JP 


NZ.4409H 


4BD4 7D 


LD 


A,L 


4BD5 C616 


ADD 


A,16H 


4BD7 6F 


LD 


L,A 


4BD8 7E 


LD 


A, (HL) 


4BD9 2C 


INC 


L 


4BDA 66 


LD 


H, (HL) 


4BDB 6F 


LD 


L,A 


4BDC 22AE44 


LD 


(44AEH) ,HL 


4BDF 11A044 


LD 


DE,44A0H 


4BE2 CD394C 


CALL 


4C39H 


4BE5 C20944 


JP 


NZ,4409H 


4BE8 22FC4B 


LD 


(4BFCH) ,HL 


4BEB CI 


POP 


BC 


4BEC Dl 


POP 


DE 


4 BED El 


POP 


HL 


4 BEE 3A1543 


LD 


A, (4315H) 


4BF1 32004C 


LD 


(4C00H) ,A 


4BF4 AF 


XOR 


A 


4BF5 321543 


LD 


(4315H),A 


4BF8 3A0E43 


LD 


A, (430EH) 


4BFB CD0000 


CALL 


0000H 


4BFE F5 


PUSH 


AF 


4BFF 3E00 


LD 


A,00H 


4C01 321543 


LD 


(4315H),A 


4C04 Fl 


POP 


AF 


4C05 C9 


RET 




* 


Load File From 


4C06 E5 


PUSH 


HL 


4C07 CD3044 


CALL 


443 0H 


4C0A C20944 


JP 


NZ,4409H 


4C0D E3 


EX 


(SP),HL 


4C0E 3A0F43 


LD 


A, (430FH) 


4C11 B7 


OR 


A 


4C12 FA0F40 


JP 


M,400FH 


4C15 C9 


RET 





Signal good status 
And return to caller 

Load System Overlay 

Save ret addr for RST 28 in HL 

Restore HL, return addr lost 

Test overlay call request 

Invalid request if positive 

Save caller's HL 

Save overlay request 

Fetch last overlay request code 

And compare 

With current 

Restore current request 

And save as previous also 

Jump if overlay already in memory 

Save caller's DE 

and BC 

Isolate directory sector number 

Test for 1st or 2nd entry in sector 

Jump if 2st entry to be used 

Else get new sec no. - file offset 

Move to B. Will be used for 

computing buffer addr by 4B1E 

Save in DCB as record no. too 

Clear CARRY and A-reg 

Grant all permissions 

Generate 16 Bits of zero 

And save as next record number 

Set drive number to zero 

Read directory sector into 4200 

Jump if error during read 

LSB of file entry addr in buffer 

Add offset to position to first GAP 

Form GAP address in HL 

Fetch track number for overlay 

Bump to 2nd GAP byte 

Fetch sector offset/granules assigned 

HL=lst GAP for overlay 

Save as 1st GAP in short system DCB 

Address of short system DCB 

Go load file from system DCB 

Jump if any error during load 

Save transfer address of overlay 

Restore caller's BC 

DE 

And HL 

Fetch DEBUG flag and save it 

for recall after overlay execution 

Zero A-reg 

Clear DEBUG flag 

Load overlay request code 

Enter overlay 

Save so we can use A-reg 

Restore DEBUG 

Flag to 4315 

Restore overlay exit status 

Return to overlay caller 



Save caller's HL 

Load file specified by system DCB 

Jump if error during load 

Restore HL. Save stack contents 

Fetch DEBUG flag 

Set status flags for DEBUG 

If DEBUG active, go load it 

Return to caller 



TRSDOS 2.3 Decoded 259 



SYSO/SYS 



4C16 0600 
4C18 21004D 
4C1B CD2444 
4C1E 2809 
4C20 CBF7 
4C22 FE58 
4C24 C0 
4C25 3E5F 
4C27 B7 
4C28 C9 



4C29 13 
4C2A 1A 
4C2B IB 
4C2C E607 
4C2E FE06 
4C30 3807 
4C32 3A0F43 
4C35 07 
4C36 3E25 
4C38 D8 



4C39 01FF4D 
4C3C CD8C4C 
4C3F FE01 
4C41 2824 
4C43 FE02 
4C45 2813 
4C47 FE20 
4C49 3804 

4C4B 3E22 
4C4D B7 
4C4E C9 



4C4F CD8C4C 
4C52 47 
4C53 CD8C4C 
4C56 10FB 

4C58 18E2 



4C5A CD8C4C 
4C5D CD8C4C 
4C60 6F 
4C61 CD8C4C 
4C64 67 
4C65 AF 
4C66 C9 



4C67 
4C6A 
4C6B 
4C6E 
4C6F 
4C70 
4C73 
4C74 
4C75 
4C78 
4C79 
4C7A 
4C7C 
4C7D 
4C7F 



4C81 7E 
4C82 2F 
4C83 77 
4C84 BE 
4C85 3E63 
4C87 C0 
4C88 3E64 
4C8A B7 
4C8B C9 



Load File From DCB Specified in DE 

LD B,00H Specify physical 1/0 

LD HL,4D00H Buffer address 

CALL 4424H OPEN file 

JR Z,4C29H Jump if error during OPEN 

SET 06H,A Convert possible error code of 18-58 

CP 58H Was error code 18 

RET NZ Return if no 

LD A,5FH Yes, replace it with a IF 

OR A Set status flags 

RET And return to caller 



General Purpose File Loader — 



INC 

LD 

DEC 

AND 

CP 

JR 

LD 

RLCA 

LD 

RET 



LD 

CALL 

CP 

JR 

CP 

JR 

CP 

JR 

LD 

OR 
RET 



DE Bump DCB pointer to access flags 

A, (DE) Fetch file status flags 

DE Backspace DCB pointer 

07H Isolate access permission 

06H Test for restricted file 

C4C39H Jump if file not restricted 

A, (430FH) Fetch DEBUG flag 

DEBUG active bit to CARRY 

A,25H Error code if DEBUG active 

C Return with error if DEBUG active 

— System Loader 

BC,4DFFH Set BC to empty buffer status 

4C8CH Get a byte from load file 

01H Test for control code 

Z,4C67H Jump if load data follows 

02H Test for control code 2 

Z,4C5AH Jump if transfer address follows 

20H Test for illegal control code 

C,4C4FH Jump if illegal control code, 

skip to next field 

A,22H Else ret LOAD FILE FORMAT error 

A Set status for error code 

Return to file load caller 



Skip to Next Control Byte 

CALL 4C8CH Get byte count for this control code 

LD B,A for DJNZ instruction 

CALL 4C8CH Fetch a byte 

DJNZ 4C53H Loop till all bytes for current 

control code skipped 

JR 4C3CH Go fetch next control code 



Get Transfer Address Into HL 



CALL 

CALL 

LD 

CALL 

LD 

XOR 

RET 



4C8CH 

4C8CH 

L,A 

4C8CH 

H,A 

A 



Skip over byte count 

Get LSB of transfer address 

Move to L 

Get MSB of transfer address 

Form address in HL 

Signal good load 

Return to file load caller 



Load Data Into Memory 



CD8C4C 

47 

CD8C4C 

6F 

05 

CD8C4C 

67 

05 

CD8C4C 

77 

BE 

2005 

23 

10F6 

18BB 



CALL 

LD 

CALL 

LD 

DEC 

CALL 

LD 

DEC 

CALL 

LD 

CP 

JR 

INC 

DJNZ 

JR 



4C8CH 

B,A 

4C8CH 

L,A 

B 

4C8CH 

H,A 

B 

4C8CH 

(HL) ,A 

(HL) 

NZ,4C81H 

HL 

4C75H 

4C3CH 



Get count of load bytes 

for DJNZ instruction 

Get LSB of load address 

Move it to L 

Count 1 byte 

Get MSB of load address 

Form load address in HL 

Count 1 byte 

Fetch a byte of load data 

Save it in memory 

Make sure it was stored 

Go if not, attempt to store in ROM 

Good store. Bump store address 

Loop till data block stored 

Go get next control byte 



Determine Cause of Storage Failure 

LD A, (HL) Fetch original contents of memory 

CPL Complement it and 

LD (HL) ,A Store it back. Then 

CP (HL) Test if byte was stored 

LD A,63H Error code for MEMORY FAULT 

RET NZ Exit if memory error 

LD A,64H Else ret code for attempted to load ROM 

OR A Set status flags for error code 

RET Return to file load caller 

Get Next Byte of Load Data From Sector Buffer 



4C8C 0C 
4C8D 2014 
4C8F D5 
4C90 DDE3 
4C92 E5 
4C93 D5 
4C94 C5 
4C95 CD1B48 
4C98 CI 
4C99 Dl 
4C9A El 
4C9B DDE1 
4C9D 2804 
4C9F CI 
4CA0 F640 
4CA2 C9 



INC 

JR 

PUSH 

EX 

PUSH 

PUSH 

PUSH 

CALL 

POP 

POP 

POP 

POP 

JR 

POP 

OR 

RET 



C 

NZ,4CA3H 

DE 

(SP) ,IX 

HL 

DE 

BC 

481BH 

BC 

DE 

HL 

IX 

Z.4CA3H 

BC 

40H 



Bump to next byte in sector buffer 

Jump if buffer not empty 

DCB address to stack 

Then move it to IX for read routine 

Save caller's HL 

And DE 

And buffer address 

Go read next sector from file 

Restore buffer address 

And DE 

And HL 

Clear stack 

Jump if no error during read 

Clear 4C8C (ret address) from stack 

Signal error during load 

Return to file load caller 



* Re-initialize BC to 
4CA3 C5 PUSH 
4CA4 064D LD 



4CA6 0A 
4CA7 CI 
4CA8 C9 



4CA9 AC4C 
4CAB 05 
4CAC DD3502 
4CAF C0 
4CB0 DD360205 
4CB4 21353C 
4CB7 114340 
4CBA 0E3A 
4CBC 0603 
4CBE 1A 

4CBF IB 

4CC0 362F 

4CC2 34 

4CC3 D60A 

4CC5 30FB 

4CC7 C63A 
4CC9 23 
4CCA 77 
4CCB 23 
4CCC 05 
4CCD C8 
4CCE 71 
4CCF 23 
4CD0 18EC 
4CD2 114640 
4CD5 0E2F 
4CD7 18E3 



4CD9 
4CDB 
4CDE 
4 CDF 
4CE0 
4CE1 
4CE2 
4CE5 
4CE6 
4CE9 
4CEA 
4CEB 
4CEC 
4CED 
4CEE 
4CEF 



DB4C 

211200 

39 

5E 

23 

56 

212E3C 

7A 

CDEA4C 

7B 

F5 

IF 

IF 

IF 

IF 

CDF34C 



4CF2 Fl 
4CF3 E60F 
4CF5 C630 
4CF7 FE3A 
4CF9 3802 
4CFB C607 
4CFD 77 
4CFE 23 
4CFF C9 



4D00 and fetch first byte of data from buffer 
BC 
B,4DH 



LD 

POP 

RET 



A, (BC) 
BC 



Remove buffer address of 4D00 

(unnecessary) 

Force address to 4D00 

(unnecessary) 

Fetch 1st data byte 

Restore 4D00 

Return to caller 



CLOCK Display Routine 



DEFW 

DEFB 

DEC 

RET 

LD 

LD 

LD 



LD 

DEC 

LD 

INC 

SUB 

JR 

ADD 

INC 

LD 

INC 

DEC 

RET 

LD 

INC 

JR 

LD 

LD 

JR 



4CAC5 

5 

(IX+02H) 

NZ 

(IX+02H) ,05H 

HL,3C35H 

DE,4043H 

C,3AH 

B,03H 

A,(DE) 

DE 

(HL) ,2FH 

(HL) 
0AH 
NC4CC2H 

A,3AH 

HL 

(HL) ,A 

HL 

B 

Z 

(HL),C 

HL 

4CBEH 

DE,4046H 

C,2FH 

4CBCH 



200 millisecond counter 

Count a 200 MS interval 

Exit if 1 second not elapsed 

Reset millisec counter to 1 second 

Video display address for time 

End address of max time values 

Hex value for : (field separator) 

No. of values to convert to ASCII 

Get a binary time value starting 

with hour, minute, second 

Backspace to next time value 

Convert binary to ASCII by compound 

Subtraction. Begin with quotient of 2F 

and increment to 30, 31, ... Divide 

value by 10 using subtraction 

Loop till division complete 

Force remainder positive 

Bump to next location in display 

Save 2nd digit (remainder) 

Bump to next position in display 

Have 3 digits been displayed 

Return if yes 

No, display : following value 

Bump to next location in display 

Loop till 3 values displayed 

Ending address of binary date 

ASCII value for / (field separator) 

Use time conversion routine 



TRACE Display Routine 



DEFW 

LD 

ADD 

LD 

INC 

LD 

LD 

LD 

CALL 

LD 

PUSH 

RRA 

RRA 

RRA 

RRA 

CALL 

POP 

AND 

ADD 

CP 

JR 

ADD 

LD 

INC 

RET 



4CDBH 

HL,0012H 

HL,SP 

E, (HL) 

HL 

D,(HL) 

HL,3C2EH 

A,D 

4CEAH 

A,E 

AF 



AF 

0FH 

A,30H 

3AH 

C4CFDH 

A,07H 

(HL),A 

HL 



Offset to P-reg in stack frame 

Backspace stack pointer 

LSB of p-reg at interrupt time 

Backspace one more byte 

MSB of p-register at interrupt time 

Display address for TRACE display 

Fetch MSB of P-reg 

Convert to ASCII and display 

LSB to ASCII and display 

Save value to be converted 

Right shift it 

4 bits to isolate 

upper digit of lower 

nibble, convert to ASCII and display 

Convert upper digit of nibble 

to ASCII and display 

Restore original nibble 

Isolate lower digit 

Convert binary to ASCII 

Test for hex values A - F 

Jump if not A - F 

Else convert to proper ASCII value 

Send ASCII digit to video 

Bump to next video address 

Return to caller 



4E00 F3 


DI 




4E01 ED56 


IM 


1 


4E03 31FC41 


LD 


SP,41FCH 


4E06 210052 


LD 


HL,5200H 


4E09 224740 


LD 


(4047H) ,HL 


4E0C 21FFFF 


LD 


HL,0FFFFH 


4E0F 7E 


LD 


A, ( HL) 


4E10 47 


LD 


B,A 


4E11 2F 


CPL 




4E12 77 


LD 


(HL) ,A 


4E13 BE 


CP 


(HL) 


4E14 70 


LD 


(HL) ,B 


4E15 2806 


JR 


Z,4E1DH 


4E17 7C 


LD 


A,H 


4E18 D604 


SUB 


04H 


4E1A 67 


LD 


H,A 


4E1B 18F2 


JR 


4E0FH 


4E1D 224940 


LD 


(4049H) ,HL 


4E20 C3204F 


JP 


4F20H 


4E23 22B843 


LD 


(43B8H) ,HL 


4E26 22C243 


LD 


(43C2H) ,HL 


4E29 2A1B40 


LD 


HL, (401BH) 


4E2C 22C043 


LD 


(43C0H) ,HL 


4E2F 2A1E40 


LD 


HL,(401EH) 


4E32 22BA43 


LD 


(43BAH),HL 


4E35 22C643 


LD 


(43C6H) ,HL 


4E38 2A2340 


LD 


HL, (4023H) 


4E3B 22C443 


LD 


(43C4H),HL 


4E3E 2A2640 


LD 


HL, (4026H) 


4E41 22BC43 


LD 


(43BCH) ,HL 


4E44 22CA43 


LD 


(43CAH) ,HL 


4E47 2A2B40 


LD 


HL, (402BH) 



- System Sector Buffer 

256 System sector buffer area 
System Initialization Code 



Kill interrupts 

Set interrupt mode 1 (RST 38) 

System stack area 

Utility load 

Address to 4047 

Start addr for memory size test 

Save memory contents 

Save for restoration 

Modify memory value, then 

Put it back and compare stored 

location with register value 

Restore orginal memory contents 

Jump if memory location exists 

Else get failed addr and lower 

by 1024 and try again 

Form new store address 

aad repeat test 

Save max memory address 

Go change keyboard driver addr 

and save new driver addr 

in Driver Address Table 

Addr of keyboard buffer 

to Device Table 

Addr of video driver 

to Driver Table 

and Driver Address Table 

Video buffer address 

to Device Table 

Printer driver address 

to Driver Address Table 

and Device Table 

Printer buffer address 



260 Appendix II 



SYSO/SYS 



4E4A 22C843 


LD 


(43C8H) ,HL 


4E4D 21CC43 


LD 


HL, 43CCH 


4E50 3600 


LD 


(HL) ,00H 


4E52 2C 


INC 


L 


4E53 2000 


JR 


NZ.4E55H 


4E55 3E03 


LD 


A,03H 


4E57 211540 


LD 


HL,4015H 


4E5A 115843 


LD 


DE,4358H 


4E5D F5 


PUSH 


AF 


4E5E 010800 


LD 


BC.0008H 


4E61 EDB0 


LDIR 




4E63 AT 


XOR 


A 


4E64 0608 


LD 


B,08H 


4E66 12 


LD 


(DE) ,A 


4E67 13 


INC 


DE 


4E68 10FC 


DJNZ 


4E66H 


4E6A 3EFF 


LD 


A,0FFH 


4E6C 0610 


LD 


B,10H 


4E6E 12 


LD 


(DE) ,A 


4E6F 13 


INC 


DE 


4E70 10FC 


DJNZ 


4E6EH 


4E72 Fl 


POP 


AF 


4E73 3D 


DEC 


A 


4E74 2000 


JR 


NZ,4E76H 


4E76 3AEC37 


LD 


A, (37ECH) 


4E79 AF 


XOR 


A 


4E7A 321543 


LD 


(4315H) ,A 


4E7D 214C40 


LD 


HL,404CH 


4E80 77 


LD 


(HL) ,A 


4E81 3EC3 


LD 


A.0C3H 


4E83 111845 


LD 


DE.4518H 


4E86 ED531340 


LD 


(4013H) ,DE 


4E8A 321240 


LD 


(4012H) ,A 


4E8D 116045 


LD 


DE,4560H 


4E90 ED535B40 


LD 


(405BH) ,DE 


4E94 CBFE 


SET 


07H, (HL) 


4E96 116946 


LD 


DE,4669H 


4E99 ED535940 


LD 


(4059H) ,DE 


4E9D CBF6 


SET 


06H, (HL) 


4E9F 3E01 


LD 


A,01H 


4EA1 320F43 


LD 


(430FH),A 


4EA4 11AF45 


LD 


DE,45AFH 


4EA7 3E07 


LD 


A,07H 


4EA9 CD1044 


CALL 


4410H 


4EAC 21ED4E 


LD 


HL,4EEDH 


4EAF 7E 


LD 


A,(HL) 


4EB0 ED44 


NEG 




4EB2 CD3300 


CALL 


0033H 


4EB5 23 


INC 


HL 


4EB6 FE0D 


CP 


0DH 


4EB8 20F5 


JR 


NZ,4EAFH 


4EBA CD2B00 


CALL 


002BH 


4EBD FE0D 


CP 


0DH 


4EBF CA0044 


JP 


Z, 440011 


4EC2 0E00 


LD 


C,00H 


4EC4 1611 


LD 


D,11H 


4EC6 1E00 


LD 


E,00H 


4EC8 210042 


LD 


HL,4200H 


4ECB CD354B 


CALL 


4B35H 


4ECE C20944 


JP 


NZ,4409H 


4 EDI 3AE042 


LD 


A,(42E0H) 


4ED4 FE0D 


CP 


0DH 


4ED6 CA0044 


JP 


Z,4400H 


4ED9 21E042 


LD 


HL,42E0H 


4EDC 111843 


LD 


DE.4318H 


4EDF 012000 


LD 


BC,0020H 


4EE2 EDB0 


LDIR 




4EE4 211843 


LD 


HL,4318H 


4EE7 CD6744 


CALL 


4467H 


4EEA C30544 
* 


JP 


4405H 


* 
* 





System Heade 


4EED 


DEFM 


'TRSDOS - C 


4F17 F3 
* 


DEFB 


0F3H 


4F20 21D843 


LD 


HL,43D8H 


4F23 221640 


LD 


(4016H),HL 


4F26 C3234E 


JP 


4E23H 



to Device Table 

End address of Device Table 

Terminate list 

Unnecessary instruction 

Unnecessary instruction 

Unnecessary instruction 

Address of keyboard DCB 

Addr of alternate DCB area 

Unnecessary instruction 

Number of bytes to move 

Move keyboard DCB to alternate area 

Zero A-register 

Number of bytes to zero 

Zero 8 bytes after alternate DCB 

Bump to next address 

Loop till 8 bytes zeroed 

Data storage pattern 

Number of bytes to store 

Store FF from 4368 to 4377 

Bump store address 

Loop till 32 bytes stored 

Unnecessary instruction 

Unnecessary instruction 

Unnecessary instruction 

Unnecessary instruction 

Load op code for a NOP 

Store NOP at DEBUG switch 

Address of interrupt mask byte 

Zero it {ignore all interrupts) 

JP op code 

Addr of interrupt routine 

Form JP 4518 instruction at 4012 

Save JP op code 

Store addr of clock interrupt 

Routine in Interrupt Task List 

Set mask bit for clock interrupt 

Address of disk interrupt routine 

To Interrupt Task List 

Set mask bit for disk interrupt 

Unnecessary instruction 

Unnecessary instruction 

Address of clock maint. routine 

Index into Interrupt Task List 

Add clock maint routine to task list 

Address of TRSDOS SYSTEM message 

Fetch a character from message 

Decode it 

Display it 

Bump to next byte of message 

Test for end of message 

Loop till message displayed 

Read the keyboard 

Test if carriage return active 

Jmp if yes, skip AUTO test 

Prepare to read GAT sector and 

Test for AUTO procedure 

DE = track/sector number 

HL = buffer address 

Read GAT sector 

Jump if any error during read 

Fetch 1st byte of AUTO procedure 

File and test for file name 

Jump if no file specified 

Address of AUTO file specification 

Addr of command line buffer 

Number of bytes in AUTO file name 

Move name to command line buffer 

Restore addr of command line buffer 

Display AUTO command 

Load SYS1 to execute command 



K OPERATING SYSTEM - VER 2.3' 
Message terminator (carriage return) 



Addr of replacement keyboard driver 
To keyboard DCB 
Rejoin main code 



TRSDOS 2.3 Decoded 261 



SYS1/SYS 



************** 



************* 



SYS1/SYS 
Command Line Interpreter 



4EB0 E670 


AND 


70H 


4E02 FE10 


CP 


10H 


4E04 CA1F4E 


JP 


Z,4E1FH 


4E07 FE2B 


CP 


20H 


4E09 2814 


JR 


Z,4E1FH 


4E0B FE30 


CP 


30H 


4E0D 283F 


JR 


Z.4E4EH 


4E0F FE40 


CP 


4BH 


4E11 CA564F 


JP 


Z,4F56H 


4E14 FE50 


CP 


50H 


4E16 CACB4F 


JP 


Z,4FC0H 


4E19 FE60 


CP 


6011 


4E1B CA7D50 


JP 


Z,507DH 


4E1E C9 


RET 




* Beg 

* 


Ln processing for op 


4E1F FB 


EI 




4E2B 31FC41 


LD 


SP,41FCH 


4E23 215943 


LD 


HL.4359H 


4E26 CB6E 


BIT 


B5H, (HL) 


4E28 2ABF43 


LD 


HL, (430FH) 


4E2B CB7E 


BIT 


B7H,(HL) 


4E2D 2805 |- 


-JR 


Z,4E34H 


4E2F 3EC3 1 


LD 


A,0C3H 


4E31 321543 


LD 


(4315H),A 


4E34 CB6E Lj 


►■BIT 


05H,(HL) 


4E36 2808 i- 


— JR 


Z.4E40H 


4E38 3A4B38 1 


LD 


A,(3840H) 


4E3B E604 1 


AND 


04H 


4E3D C23040 1 


JP 


NZ,4B30H 


4E40 21B851 U 


►-LD 


HL,51B8H 


4E43 CD6744 


CALL 


4467H 


4E46 211843 


LD 


HL,4318H 


4E49 B63F 


LD 


B,3FH 


4E4B CD400B 


CALL 


B040H 


* 


- Begin processing f 


4E4E B12D40 


LD 


BC,402DH 


4E51 C5 


PUSH 


BC 


4E52 118044 


LD 


DE.4480H 


4E55 CD564F 


CALL 


4F56H 


4E58 C2874E 


JP 


NZ,4E87H 


4E5B 1A 


LD 


A, (DE) 


4E5C FE2A 


CP 


2 AH 


4E5E CA874E 


JP 


Z,4E87H 


4E61 E5 


PUSH 


HL 


4E62 B1A44E 


LD 


BC4EA4H 


4E65 CD2A5B 


CALL 


502AH 


and BASIC2/DEBUG/TRACE 




4E68 281A 


JR 


Z.4E84H 


4E6A 01BD4E 


LD 


BC4EBDH 


4E6D CD2A50 


CALL 


502AH 


4E7B 2812 


JR 


Z.4E84H 


4E72 3A0F43 


LD 


A,(430FH) 


4E75 CBA7 


RES 


04H.A 



Isolate option 

Test for option 10 

Read next command and process 

Test for option 20 

Read next command and process 

Test for option 30 

Reprocess command line buffer 

Test for option 40 

Copy and Edit file name 

Test for option 50 

Add suffix to file name 

Test for option 60 

Parse command list 

Unknown option. Return to caller 



Allow interrupts 

Reset stack pointer 

This instruction not used 

This instruction not used 

System condition flag 

Is DEBUG active 

Jump if no 

Else, construct a 

JP XXXX instruction at 4315 

Test for program chaining 

Jump if no 

Get keyboard row - 

Test for break 

Go recall SYSl with option 2 if so 

Address of DOS READY message 

Write DOS READY to video 

Address of command line buffer 

Max no. of key strokes allowed 

Get next command from keyboard 



Return point in SYS0 

To stack 

Address of system DCB 

Move file name to DCB (command line) 

Go if illegal char, found 

Fetch first character of command 

Test for * 

Go if command starts with * (error) 

Save end position in command list 

Address of SYSl commands 

Test for SYSl 

Jump if SYSl command. Execute CMD 
Else load addr. of other DOS commands 
Compare current command against 
list of SYS6 commands 
Jump if a match found 
Fetch system condition flag 
Clear SYS6 Joaded flag 



Command is neither SYS 1 nor SYS 6 command. 
Add CMD suffix to command and load file from disk. 



4E77 320F43 


LD 


(430FH),A 


4E7A 21B551 


LD 


HL,51B5H 


4E7D CDC04F 


CALL 


4FC0H 


4E80 El 


POP 


HL 


4E81 C33344 


JP 


4433H 


4E84 El 


POP 


HL 


4E85 D5 


PUSH 


DE 


4E86 C9 


RET 





4E87 


21C351 


LD 


HL,51C3H 


4E8A 


CD6744 


CALL 


4467H 


4E8D 


C33040 


JP 


4030H 


4E90 


3A0F43 


LD 


A, (430FH) 


4E93 


CB67 


BIT 


04H,A 


4E95 


C20052 


JP 


NZ,5200H 


4E98 


3A0F43 


LD 


A, (430FH) 


4E9B 


CBE7 


SET 


04H.A 


4E9D 


320F43 


LD 


(430FH),A 


4EA0 


3E88 


LD 


A,88H 


4EA2 


F5 


PUSH 


AF 


4EA3 


EF 


RST 


28 H 


* 
* 




Text Strings for SY 


4EA4 




DEFM 


'BASIC2' 


4EAA 




DEFW 


514CH 


4EAC 




DEFM 


'DEBUG' 


4EB2 




DEFW 


5162H 


4EB4 




DEFM 


'TRACE' 


4EBA 




DEFW 


5191H 


4EBC 




DEFB 


00H 



Restore updated condition flag 

Address of CMD message 

Add CMD suffix to file name 

Clear DCB address from stack 

Enter routine to load and execute file 

Clear stack 

SYSl addr for DOS and to stack 

Go to SYSl addr for DOS command. 

(514C, 5162, 5191, or 4E90) 



Address of "WHAT" message 

Print "WHAT" 

Go wait for next command 

Get system condition flags 

Test if SYS6 currently loaded 

Jump if yes 

Else reload system condition flag 

And clear SYS6 loaded flag 

Restore system condition flags 

DOS overlay req. for SYS6 option 

Dummy push for overlay loader 

Load and execute SYS6 



Text for SYSl cmd 

Addr of BASIC2 cmd in SYSl 

Text for SYSl cmd 

Addr of DEBUG cmd in SYSl 

Text for SYSl cmd 

Addr of TRACE cmd in SYSl 

Text sting terminator 



4EBD 


DEFM 


'APPEND 


Text 


4EC3 


DEFW 


4E90H 


Addr 


4EC6 


DEFM 


'ATTRIB 


Text 


4ECB 


DEFW 


4E90H 


Addr 


4ECD 


DEFM 


'AUTO 


Text 


4ED3 


DEFW 


4E90H 


Addr 


4ED5 


DEFM 


'CLOCK 


Text 


4EDB 


DEFW 


4E90H 


Addr 


4EDD 


DEFM 


'COPY 


Text 


4EE3 


DEFW 


4E90H 


Addr 


4EE5 


DEFM 


'DATE 


Text 


4EEB 


DEFW 


4E90H 


Addr 


4EED 


DEFM 


'DEVICE 


Text 


4EF3 


DEFW 


4E90H 


Addr 


4EF5 


DEFM 


'DIR 


Text 


4EFB 


DEFW 


4E90H 


Addr 


4EFD 


DEFM 


'DUMP 


Text 


4F03 


DEFW 


4E90H 


Addr 


4F05 


DEFM 


'FREE 


Text 


4F0B 


DEFW 


4E90H 


Addr 


4F0D 


DEFM 


'KILL 


Text 


4F13 


DEFW 


4E90H 


Addr 


4F15 


DEFM 


'LIB 


Text 


4F1B 


DEFW 


4E90H 


Addr 


4F1D 


DEFM 


'LIST 


Text 


4F23 


DEFW 


4E90H 


Addr 


4F25 


DEFM 


'LOAD 


Text 


4F2B 


DEFW 


4E90H 


Addr 


4F20 


DEFM 


'PRINT 


Text 


4F33 


DEFW 


4E90H 


Addr 


4F35 


DEFM 


'PROT 


Text 


4F3B 


DEFW 


4E90H 


Addr 


4F3D 


DEFM 


'RENAME 


Text 


4F43 


DEFW 


4E90H 


Addr 


4F45 


DEFM 


'TIME 


Text 


4F4B 


DEFW 


4E90H 


Addr 


4F4D 


DEFM 


'VERIFY 


Text 


4F35 


DEFW 


4E90H 


Addr 


4F55 


DEFB 


00 


Text 



Text Strings for SYS6 Commands 

for SYS6 cmd 

where SYS6 is called 

for SYS6 cmd 

where SYS6 is called 

for SYS6 cmd 

where SYS6 is calltJ 

for SYS6 cmd 

where SYS6 is called 

for SYS6 cmd 

where SYS6 is called 

for SYS6 cmd 

where SYS6 is called 

for SYS6 cmd 

where SYS6 is called 

for SYS6 cmd 

where SYS6 is called 

for SYS6 cmd 

where SYS6 is called 

for SYS6 cmd 

where SYS6 is called 

for SYS6 cmd 

where SYS6 is called 

for SYS6 

where SYS6 is called 

for SYS6 

where SYS6 is called 

for SYS6 

where SYS6 is called 

for SYS6 

where SYS6 is called 

for SYS6 

where SYS6 is called 

for SYS6 

where SYS6 is called 

for SYS6 

where SYS6 is called 

for SYS6 

where SYS6 is called 

string terminator 

Begin processing for option 50. Copy string specified in 
HL to addr. specified in DE. Source string is assumed to 
be a file name. Dest. addr. is assumed to be a DCB, Source 
string is edited according to file name conventions e.g. no 
special characters etc. On exit, status register is zero if 
no errors were detected, otherwise it is non-zero. 



Save DCB address. 

No. of chars, to examine in string 

Look for /,/ or . in cmd string 

Jump if no chars, copied to DCB 

Was it terminated by an extension 

Jmp, no extension specified 

Move / to DCB 

Bump to next location in DCB 

No, of characters to move 

Move extension to DCB 

Jump if no extension 

Was there a password present 

Jmp, no password 

Move . to DCB 

Bump to next position in DCB 

B = No, of Characters in password 

Move password to DCB 

Jump if no password present 

Was there a drive specification (:) 

No Jump if no, 

Yes. Move : to DCB 

Bump to next position 

Max. number of chars, in drive spec. 

Copy drive specification to DCB 

Go if no drive number following : 

Save terminating characters 

Terminating character for DCB list 

To DCB 

Clear status flags 

Restore term, char, to A 

Restore orgin, of DCB to DE 

And save it on stack 

Addr. of TO, ON, OVER phrases 

Look for match 

Restore DCB address 

Jump if TO/ON/OVER phrase found 

Signal good status and 

Return to caller 



* Entered when no characters copied to DCB. If command begins 

* with an *, and two characters follow, copy command to DCB. 



Test for * 

Jump if not * 

Move * to DCB 

Bump to next position in DCB 

Number of characters to scan 

Copy next two characters to DCB 

Jump if two were copied. 

Terminate name w/03 

Restore caller's DE 

Return to caller 



* HL= String 


address 




* B = No. chars, in str 


ing 


* DE= DCB Address 




4F56 D5 


PUSH 


DE 


4F57 0608 


LD 


B,08H 


4F59 CDF44F 


CALL 


4FF4H 


4F5C 203A 


JR 


NZ,4F98H 


4F5E FE2F 


CP 


2FH 


4F60 2009 


JR 


NZ.4F6BH 


4F62 12 


LD 


(DE) ,A 


4F63 13 


INC 


DE 


4F64 0603 


LD 


B,03H 


4F66 CDF44F 


CALL 


4FF4H 


4F69 203A 


JR 


NZ.4FA5H 


4F6B FE2E 


CP 


2EH 


4F6D 2009 


JR 


NZ,4F78H 


4F6F 12 


LD 


(DE) ,A 


4F70 13 


INC 


DE 


4F71 0608 


LD 


B, 08H 


4F73 CDF44F 


CALL 


4FF4H 


4F76 202D 


JR 


NZ,4FA5H 


4F78 FE3A 


CP 


3AH 


4F7A 2009 


JR 


NZ,4F85H 


4F7C 12 


LD 


(DE) ,A 


4F7D 13 


INC 


DE 


4F7E 0601 


LD 


B,01H 


4F80 CDF44F 


CALL 


4FF4H 


4F83 2020 


JR 


NZ.4FA5H 


4F85 4F 


LD 


C,A 


4F86 3E03 


LD 


A,03H 


4F88 12 


LD 


(DE) ,A 


4F89 AF 


XOR 


A 


4F8A 79 


LD 


A,C 


4F8B Dl 


POP 


DE 


4F8C D5 


PUSH 


DE 


4F8D 01A74F 


LD 


BC4FA7H 


4F90 CD2A50 


CALL 


502AH 


4F93 Dl 


POP 


DE 


4F94 28C0 


JR 


Z.4F56H 


4F96 AF 


XOR 


A 


4F97 C9 


RET 





4F98 FE2A 


CP 


2 AH 


4F9A 2009 


JR 


NZ.4FA5H 


4F9C 12 


LD 


(DE) ,A 


4F9D 13 


INC 


DE 


4F9E 0602 


LD 


B,02H 


4FA0 CDF44F 


CALL 


4FF4H 


4FA3 28E0 


JR 


Z,4F85H 


4FA5 Dl 


POP 


DE 


4FA6 C9 


RET 





262 Appendix II 



SYS1/SYS 



Parameter Seperator List 



4FA7 


DEFM 


"TO 


4 FAD 


DEFW 


mm 


4FAF 


DEFM 


'ON 


4FB5 


DEFW 


0000H 


4FB7 


DEFM 


'OVER 


4FBD 


DEFW 


0000H 


4FBF 


DEFB 


00U 



List terminator 

* Begin processing for option 50. Add /CMD suffix to file 

* name in DCB. Skip to end of file name (find last char of 

* file name before drive specification) . Move all chars after 

* file name down 4 positions {create a hole for /CMD suffix) . 

* Add CMD suffix, if a / is detected following file name do 

* not add suffix 



4FC0 D5 
4FC1 E5 
4FC2 EB 
4FC3 23 
4FC4 0609 
4FC6 7E 
4FC7 FE2F 
4FC9 280D 
4FCB 380E 

4FCD FE3A 
4FCF 3804 
4FD1 FE41 
4FD3 3806 

4FD5 23 
4FD6 10EE 
4FD8 El 
4FD9 Dl 
4 FDA C9 



4FDB 010F00 
4FDE 09 
4FDF 54 
4FE0 5D 
4FE1 13 
4FE2 13 
4FE3 13 
4FE4 13 
4FE5 03 
4FE6 EDB8 
4FE8 El 
4FE9 23 
4FEA 23 
4FEB 0E03 
4FED EDB8 
4FEF 3E2F 
4FF1 12 
4FF2 Dl 
4FF3 C9 



PUSH 
PUSH 



JR 
JR 

CP 
JR 
CP 
JR 

INC 

DJNZ 

POP 

POP 

RET 



ADD 

LD 

LD 

INC 

INC 

INC 

INC 

INC 

LDDR 

POP 

INC 

INC 

LD 

LDDR 

LD 

LD 

POP 

RET 



DE 

HL 

DE,HL 

HL 

B,09H 

A, (BL) 

2FH 

Z,4FD8H 

C,4FDBH 

3AH 

C.4FD5H 
41H 
C4FDBH 

HL 
4FC6H 



BC000FH 
HL,BC 
D,H 
E,L 

DE 
DE 



BC 

HL 
HL 
HL 
C,03H 

A,2FH 

(DE),A 

DE 



Save DCB addr. 

Save appendage list 

DE = appendage list. HL = DCB addr 

Point to the 2nd char, in DCB 

Max.# of char. to test. 
Get a char. from DCB 
Test for / (extension) 
Go if / found (don't add suffix) 
Or go if special char, 
found (do not add suffix) 
Test for : (drive spec.) 
Jump if numeric found 
Test for letter 
Jump if not letter. End of 
file name in DCB (03) assumed 
We have a letter. Bump to next 
char. & loop till all examined 

Restore appendage list addr. 

Restore DCB addr. 

Return to caller w/o adding suffix 



BC = 15, max distance to end of DCB 

Compute addr. of last byte used 

DE = last byte 

used in DCB 

Now, add 4 to last used 

addr. so we can move 

file name down to create 

A "hole" for the /CMD suffix 

BC = number of bytes to move down 

Move data after file name down 4 

HL - start addr. of CMD text 

Skip to 

end of list for LDDR instr. 

C = number of chars, to copy 

Copy CMD text to DCB 

A - "1" 

Separate file name & suffix with "/" 

Restore start of DCB addr. 

Return to caller 



* Copy characters from list in DE to HL. Copy terminator when 

* (B) chars, or 03, or 0D encountered in source list. 



4FF4 78 


LD 


A,B 


1 = Number of characters 
bo examine 


4FF5 322650 


LD 


(5026H),A 


3ave no. of chars, to test 


4FF8 04 


INC 


B Adjust for DEC at 5013 


4FF9 7E 


LD 


A, (HL) 


Get next symbol from 
command string 


4FFA FE03 


CP 


03H 


Was it an ETX 


4FFC 2823 


JR 


Z,5021H 


Jump if ves 


4FFE FE0D 


CP 


0DH 


No, test for Cr 


5000 281F 


JR 


Z, 502111 


Jump if Cr 


5002 23 


INC 


HL 


Bump to next char, in 
command string 


5003 FE30 


CP 


30H 


Was previous char, a 
special char. 


5005 381A 


JR 


C,5021H 


Jump, if it's a spec. char. 


5007 FE3A 


CP 


3AH 


Test for alph., numeric, or 
special symbol 


5009 3808 


JR 


C5013H 


Jump if numeric 


500B FE41 


CP 


41 H 


Test for alpha or 
special symbol 


500D 3812 


JR 


C5021H 


Jump if spec, symbol 


500F FE5B 


CP 


5BH 


Test for upper case 


5011 300E 


JR 


NC,5021H 


Jump if upper case 


5013 05 


DEC 


B 


Count one legitimate 
character found 


5014 2808 


JR 


Z,501EH 


Jump if all tested 


5016 12 


LD 


(DE) ,A 


Move to DCB in case 
it's a file name 


5017 AF 


XOR 


A 


Signal at least one 


5018 322650 


LD 


(5026H),A 


Character copied to DCB 


501B 13 


INC 


DE 


Bump to next addr. in DCB 


501C 18DB 


JR 


4FF9H 


Loop until end of input or 
specified # of char, copied 


501E 04 


INC 


B 


Adjust count for last char. 


501F 18D8 


JR 


4FF9H 


Continue scan until 
terminating char, found, 
or (B) chars copied 


5021 4F 


LD 


C,A 


Save terminating char. 


5022 3E03 


LD 


A,03H < 


ind signal 


5024 12 


LD 


(DE) ,A I 


Snd command name in DCB with a 


5025 3E00 


LD 


A,00H ( 


:ount of characters tested 


5027 B7 


OR 


A 


jet status flags for count 


5028 79 


LD 


A,C 1 


terminating character to A-reg. 


5029 C9 


RET 


I 


Return to caller 



Compare list pointed to by BC against list pointed to by DE 



502A E5 
502B 60 
502C 69 
502D 0E01 
502F 1A 

5030 BE 

5031 280F 

5033 C5 

5034 010800 

5037 09 

5038 CI 

5039 0C 
503A 7E 
503B B7 
503C 20F1 
503E El 
503F F601 
5041 C9 



PUSH 

LD 

LD 

LD 

LD 

CP 

JR 

PUSH 

LD 

ADD 

POP 

INC 

LD 

OR 

JR 

POP 

OR 

RET 



HL 

H,B 

L,C 

C,01H 

A, (DE) 

(HL) 

Z.5042H 

BC 

BC.0008H 

HL,BC 

BC 

C 

A, (HL) 

A 

NZ,502FH 

HL 

01H 



Save input string addr. 
HL = Addr. of command 
Tables to search 
C = Number of lists searched 

Fetch a char. from search list 
Compare it to input string 
Jump if first char, matches 
No match. Go to next list 
Save caller's BC 
Add 8 to current list to 
get addr. of next list 
Restore caller's BC 
Bump count of lists searched 
Fetch 1st char, of next list 
test for end of list 
Loop, not end of list 
Restore caller's HL 
Signal no match 
Return to caller 



* First char, in list matches. Compare remainder of list. 



5042 0605 

5044 E5 

5045 D5 

5046 13 

5047 23 

5048 1A 

5049 FE03 
504B 2827 
504D FE0D 
504F 2823 

5051 BE 

5052 2010 
5054 10F0 

5056 Dl 

5057 79 

5058 CI 

5059 210601 
505C 09 
505D 4F 
505E 5E 
505F 23 

5060 56 

5061 El 

5062 AF 

5063 C9 



5064 FE30 

5066 3B0C 
5068 FE3A 
506A 3B0D 
506C FE41 

506E 3804 
5070 FE5B 
5072 3805 

5074 7E 

5075 FE20 
5077 28DD 
5079 Dl 
507A El 
507B 18B6 



507D 
507E 
5080 
5081 
5083 
5085 
5087 
5089 
50 8A 
508B 
508C 
508E 
508F 
5091 
5094 
5095 
5098 
5099 
509A 
509B 
509C 
509D 
509E 
50A1 
50A4 
50A6 
50A7 



7E 

FE0D 

C8 

FE28 

2809 

FE20 

2802 

B7 

C9 

23 

18EF 

D5 

0606 

11AF51 

23 

CDF44F 

2B 

Dl 

C0 

D5 

42 

4B 

11AF51 

CD2A50 

2802 

Dl 

C9 



LD 

PUSH 

PUSH 

INC 

INC 

LD 

CP 

JR 

CP 

JR 

CP 

JR 

DJNZ 

POP 

LD 

POP 

LD 

ADD 

LD 

LD 

INC 

LD 

POP 

XOR 

RET 



JR 
CP 
JR 
CP 

JR 

CP 

JR 

LD 

CP 

JR 

POP 

POP 

JR 



B,05H 

HL 

DE 

DE 

HL 

A, (DE) 

03H 

Z.5074H 

0DH 

Z.5074H 

(HL) 

NZ.5064H 

5046H 

DE 

A,C 

BC 

HL.0006H 

HL.BC 

C,A 

E,(HL) 

HL 

D, (HL) 

HL 



30H 

C.5074H 
3AH 

C,5079H 
41 H 

C5074H 

5BH 

C,5079H 

A, (HL) 

20H 

Z,5056H 

DE 

HL 

5033H 



No. of chars, left to match 

Save input string addr. 

Save search list addr. Save 

starting addr. of command string 
Bump to next char, of input list 
and companion list 
Fetch a char, from input list 
Test for end of string 
Go if end of input string 
Else test for end of line 
Jump if end of input string 
Does char, match search list 
No, go test for ending byte 
Yes, loop to test next char, 
until all chars, tested 
DE = 2nd char, of matching 
search list 

A = No. of lists searched 
Starting addr. of matching cmd 
HL » Length of command 
HL = Ending addr. of command 
C = List number 
E = LSB of command addr. 
Bump to MSB 

D = MSB of command addr. 
HL = Starting addr. of 
input string 
Signal good status 
Return to caller 



Was it a special char. 

(e.g. /.-+-*) 

Jump if yes 

No, was it a digit 0-9 

Jump if yes 

No, was it a special char. 

(e.g :;<=>? 6) 

Jump if yes 

No, was it alpha A - z 

Jump if yes 

No, fetch current char. 

Is it a space 

Jump, if yes 
No, clear stack 
Restore input string addr. 
Get next list addr. and retest 



Begin processing for option 60 parse 



LD 

CP 

RET 

CP 

JR 

CP 

JR 

OR 

RET 

INC 

JR 

PUSH 

LD 

LD 

INC 

CALL 

DEC 

POP 

RET 

PUSH 

LD 

LD 

LD 

CALL 

JR 

POP 

RET 



A, (HL) 

0DH 

Z 

28 H 

Z.508EH 

20H 

Z,508BH 

A 

HL 

507DH 

DE 

B,06H 

DE,51AFH 

HL 

4FF4H 

HL 

DE 

NZ 

DE 

B,D 

C,E 

DE.51AFH 

502AH 

Z,50A8H 

DE 



Get a character 

Test for end of line (CR. ) 

Exit if a "CR" found 

Test for left parenthesis 

Jump if "(" 

Test for space 

Jump if space 

Set status flags 

Return to caller 

Bump to next char. 

Go test again 

Save caller ' s cmd list addr 

B = Number of chars, to copy 

Buffer addr. 

Bump to first char, after "(■ 

Copy 6 chars or untill ")" found 

Backspace over terminating 03 

Restore caller's DE 

Exit if no chars, copied (error) 

Save caller's DE 

Caller's command list table 

Addr. to BC for routine at 502A 

Parsed command line 

Look for cmd in caller's cmd list 

Jump if a match found 
Restore caller's DE 
Return with error status 



TRSDOS 2.3 Decoded 263 



SYS1/SYS 



50A8 7E 


LD 


A,(HL) 






Refetch char, from input string 


50A9 FE3D 


CP 


3DH 




Compare it to an = 


5BAB 2814 


JR 


Z.50C1H 




Jump if = 


50AD 01FFFF 


LD 


BC0FFFFH 




Value returned if no = paramete 


50B0 79 


LD 


A,C 




Save LSB of addr. 












or hex value 


50B1 12 


LD 


(DE) ,A 






In buffer 


50B2 13 


INC 


DE 






Bump to next loc. 


50B3 78 


LD 


A,B 






Get MSB of addr. 


50B4 12 


LD 


(DE),A 






and save in buffer 


50B5 Dl 


POP 


DE 






Restore caller's 
command list address 


50B6 7E 


LD 


A, (HL) 






Refetch Char, from 
input string 


50B7 FE2C 


CP 


2CH 






Compare with ' 


50B9 28D3 


JR 


Z.508EH 






Jump if ' 


50BB FE29 


CP 


29H 




Not ' , compare it to a ) 


50BD C0 


RET 


NZ 




Exit if not a ) 


50BE 23 


INC 


HL 




Bump to next char. 


50BF AF 


XOR 


A 




Signal good status 


50C0 C9 


RET 






Return to caller 


50C1 23 


INC 


HL 




Bump to first char, 
after = 


50C2 7E 


LD 


A, (HL) 




Fetch char. 


50C3 FE58 


CP 


58H 




Test for X (hex flag 


50C5 280B 


JR 


Z,50D2H 




Go convert if hex value 


50C7 FE41 


CP 


41H 




Test for digit 


50C9 380F 


JR 


C,50DAH 




Jump if digit 


50CB CDDF50 


CALL 


50DFH 




Alpha, go test for N, Y, OF 


50CE 28E0 


JR 


Z,50B0H 




Jump if N, Y, or OF found 


50D0 18D4 


JR 


50A6H 




Error, return to caller 


50D2 23 


INC 


HL 




Bump to next char. 


50D3 CD1F51 


CALL 


511FH 




Convert ASCII hex to binary 


50D6 28D8 


JR 


Z,50B0H 




If no error save hex value 


50D8 18CC 


JR 


50A6H 




Else, return to caller 


50DA CD0451 


CALL 


5104H 


Go get decimal value 


50DD 18D1 


JR 


50B0H 


and return to caller 


* 


- Test for YES, NO or OB 


F parameter 


50DF 010000 


LD 


BC,0000H Signal N,Y,or OF 


50E2 7E 


LD 


A, (HL) Fetch first symbol past "(" or = 


50E3 FE59 


CP 


59H Test for Y 


50E5 2810 


JR 


Z,50F7H Jump if Y 


50E7 FE4E 


CP 


4EH No, test for N 


50E9 280F 


JR 


Z,50FAH Jump if N 


50EB FE4F 


CP 


4FH Not Y/N, test for 


50ED C0 


RET 


NZ Return if not 


50EE 23 


INC 


HL Char, is 0, bump to next char 


50EF 7E 


LD 


A, (HL) Fetch char, after 


50F0 FE46 


CP 


46 H And test for F 


50F2 2806 


JR 


Z,50FAH Jump if OF found 


50F4 FE4E 


CP 


4EH Not F, test for N 


50F6 C0 


RET 


NZ Return if ON 


50F7 01FFFF 


LD 


BC0FFFFH Signal ON 


50FA 23 


INC 


HL 


Bump to next input string char. 


50FB 7E 


LD 


A, (HL) 


Fetch next char. 


50FC FE29 


CP 


29H 


Test for "} " 


50FE C8 


RET 


Z 


Return if ) 


50FF FE2C 


CP 


2CH 


Test for "," 


5101 C8 


RET 


Z 


Return if , 


5102 18F6 


JR 


50FAH 


Loop until ) or , found 


* 


ASCII 


to binary conve 


its ion routine 


5104 010000 


LD 


BC0000H 


"lear accumulator 


5107 7E 


LD 


A, (HL) 


Fetch an ASCII character 


5106 D630 


SUB 


30H 


Get its decimal equivalent 


510A D8 


RET 


C 


Exit if not a digit 


510B FE0A 


CP 


0AH 


Test for value greater than 9 


510D D0 


RET 


NC 


Exit if char, greater than 9 


510E E5 


PUSH 


HL 


Save input string addr. 


510F 60 


LD 


H,B 


HL = Accumulated 


5110 69 


LD 


L,C 


Value, thus far 


5111 29 


ADD 


HL,HL 


Value, * 2 


5112 29 


ADD 


HL,HL 


Value, * 4 


5113 09 


ADD 


HL,BC 


Value, * 5 


5114 29 


ADD 


HL.HL 


Value, * 10 


5115 0600 


LD 


e. Ban 


Prohibit overflow during add 


5117 4F 


LD 


C,A 


BC = Current digit 


5118 09 


ADD 


HL,BC 


Add it to previous value 


5119 44 


LD 


B, H 


Then, move current 


511A 4D 


LD 


C,L 


value to BC 


511B El 


POP 


HI, 


Restore cmd string address 


511C 23 


INC 


HL 


Bump to next char. 


511D 18E8 


JR 


5107H 




Loop till end of line detected 



Scan input string following ( or = look for Y, N, or OF. If 
found, return W/BC = after skipping to next , or ) in cmd 
string. Look for ON. If found, return W/BC = -1 and 
position to next , or } in cmd string. If Y, N, or does 
not follow as next char, exit W/BC = 0. 



511F 010000 

5122 7E 

5123 FE27 

5125 C0 

5126 23 

5127 7E 

5128 D630 
512A 380A 
512C PE0A 
512E 380E 
5130 D607 
5132 FE10 



LD 

LD 

CP 

RET 

INC 

LD 

SUB 

JR 

CP 

JR 

SUB 

CP 



BC0000H 

A, (HL) 

27 H 

NZ 

HL 

A,(HL) 

30H 

C.5036H 

0AH 

C513EH 

07 H 

10H 



Zero accumulator 

Get a char, from cmd string 

Compare it to an ' (apostraphe) 

Exit if value not preceded by ' (error) 

Bump to first digit 

Fetch a digit 

Convert it to binary 

Jump if end of input string 

Test for digit 0-9 

Jump if 0-9 

Test for lettdr A-F 

And adjust binary value 



5134 3808 

5136 7E 

5137 FE27 
5139 23 
513A C8 
513B 2B 
513C AF 
51 3D C9 



JR 

LD 

CP 

INC 

RET 

DEC 

XOR 

RET 



C,513EH 
A, (HL) 
27 H 



Jump if A - F 

Refetch non-digit char. 

Test for end of hex digit (') 

Bump to next input string char. 

Exit if done 

Else back-up to illegal char. 

Signal an error 

and return to caller 



Multiply current digit by 16 and add to accumulator. 



513E E5 
513F 60 

5140 69 

5141 29 

5142 29 

5143 29 

5144 29 

5145 44 

5146 85 

5147 0F 

5148 El 
5549 23 
514A 18DB 



PUSH 

LD 

LD 

ADD 

ADD 

ADD 

ADD 

LD 

ADD 

LD 

POP 

INC 

JR 



HL 

H,B 

L,C 

HL,HL 

HL,HL 

HL,HL 

HL,HL 

B, H 

A,L 

C,A 

HL 

HL 

5127H 



Save input string addr. 

Move current hex binary value 

To HL 

Multiply current hex value by 

16 using additions 

»8 

*16 

Save MSB of new hex value 

Add current hex digit 

BC - Current hex value 

Restore input string addr. 

Bump to next digit 

Loop till non-hex found 



BASIC 2 Command Processing 



514C 
514F 
5152 
5155 
5157 
5158 
51 5A 
515B 
515C 
515E 
515F 



21D206 

110040 

013600 

EDB0 

AF 

0627 

12 

13 

10FC 

F3 

C37500 



LD 

LD 

LD 

LDIR 

XOR 

LD 

LD 

INC 

DJNZ 

DI 

JP 



HL,06D2H 
DE,4000H 
BC,0036H 

A 

B, 27 H 

(DE) ,A 

DE 

515AH 

0075H 



Addr. of jump vectors 

And keyboard/video/and LP 

DCB's in ROM 

Move jump vectors & DCB's to RAM 

Load a zero in A-reg. , so we can zero 

the 39 bytes following the DCB's 
Store a zero 
Bump store address 
Loop until 39 bytes zeroed 

Kill interrupts 

Go to LEVEL II ROM warmstart 

(enter RDM BASIC) 



DEBUG Command Processing 



5191 CDA051 
5194 11D94C 

5197 3E0B 

5199 CA1344 

519C C31044 



Process (ON/OFF) part of DEBUG cmd. 

Addr. of system condition flag 

Kill interrupts. Flag fussing 

with 4015/4016 

Jump if DEBUG, OFF 

Else, signal DEBUG, ON 

Addr. of load DEBUG vector 

JP OP Code 

Construct a JP 400F instr. and 

store at 4315, this yields a 

JP 44B4 (load DEBUG call) 

Call OP Code 

Save addr. 400F at 4031 - 4032 

Enable interrupts 

then save a CALL at 4030 giving 

a 4030: CALL 400FH 

Go read next command 



Clear DEBUG flag in 

system condition byte 

then clear 

active flag and restore 4030-4032 

LD A, A3 OP Code 

A3 for LD A followed by a RST 28 

Store A, A3/RST 28 at 

4030/4031/4032 



TRACE Command Processing 

CALL 51A0H Get (ON/OFF) 

LD DE,4CD9H Addr. of TRACE off, 

routine in SYS 
LD A,0BH Index of TRACE in SYS0 

clock scan list 
JP Z,4413H Jump if TRACE (ON). Add TRACE to 

clock scan list 
JP 4410H Else, assume TRACE (OFF). 

Remove TRACE from clock scan list 



5162 CDA051 


CALL 


51A0H 


5165 210F43 


LD 


HL,430FH 


5168 F3 


DI 




5169 2819 


JR 


Z,5184H 


516B CBFE 


SET 


07H,(HL) 


516D 210F40 


LD 


HL.400FH 


5170 3EC3 


LD 


A,0C3H 


5172 221643 


LD 


(4316H),HL 


5175 321543 


LD 


(4315H),A 


5178 3ECD 


LD 


A.0CDH 


517A 223140 


LD 


(4031H) ,HL 


517D FB 


EI 




517E 323040 


LD 


(4030U) ,A 


5181 C31F4E 


JP 


4E1FH 


* 


DEBUG, 


OFF Process 


5184 CBBE 


RES 


07H, (HL) 


5186 AF 


XOR 


A 


5187 321543 


LD 


(4315H),A 


518A 3E3E 


LD 


A,3EH 


518C 21A3EF 


LD 


HL,0EFA3H 


518F 18E9 


JR 


517AH 



Get next char, from input string. If (, test for YES, NO or OFF. 



519F 23 
51A0 7E 
51 Al FE20 
51A3 28FA 



51A5 FE28 
51A7 C0 
51A8 23 
51A9 CDDF50 
51AC 78 
51AD B7 
51AE C9 



INC 
LD 
CP 
JR 



CP 

RET 

INC 

CALL 

LD 

OR 

RET 



A, (HL) 

20H 

Z,519FH 



28H 

NZ 

HL 

50DFH 

A,B 



Bump to next symbol in cmd string 

Get next symbol from cmd string 

Compare it with a blank 

If a blank, fetch and 

test next symbol. 

Loop until non-blank clear 
Not a blank, is it a left paren. 
Return to caller if not ( 
Bump past starting parenthesis. 
Look for Y, N, OF or ON phrase 
A =■ if Y,N, or OF. A - FF if ON 
Set status flags for Y, N, F, ON 
Return to caller 



local buffer for holding parsed cmd. 



51B5 


DEFM 


'CMD' 


Suffix for file loads 


51 B8 


DEFB 


00B 


Terminatior 


51B9 


DEFM 


'DOS READY' 


Command prompt message 


51C2 


DEFB 


0DH 


Terminator 


51C3 


DEFM 


'WHAT' 




51C8 


DEFB 


0DH 


Terminator 



264 Appendix II 



SYS2/SYS 



****************** 



4E00 E670 
4E02 FEU 
4E04 CA124E 
4E07 FE20 
4E09 CAD84E 
4E0C FE30 
4E0E CA504F 
4E11 C9 



*********** 



SYS2/SYS 
OPEN and INIT Processing 



***************** 



4E12 CD9648 
4E15 78 
4E16 32AF4F 
4E19 22C04F 
4E1C DDE5 
4E1E El 
4E1F CD2750 
4E22 CD 
4E23 215D51 
4E26 CD9B50 
4E29 324E4E 
4E2C 115551 
4E2F CDD150 
4E32 226851 
4E35 226A51 
4E38 3A5451 
4E3B 4F 
4E3C 3C 
4E3D 2001 
4E3F 4F 
4E40 CDFD50 
4E43 200F 
4E45 CD2E51 
4E48 C0 
4E49 7E 

4E4A B7 
4E4B 2804 
4E4D FE00 

4E4F 2819 
4E51 2C 

4E52 20F5 
4E54 3A5451 

4E57 3C 
4E58 2006 

4E5A 0C 
4E5B 79 
4E5C FE04 
4E5E 38E0 

4E60 3F.18 
4E62 B7 
4E63 C9 



4E64 CI 
4E65 El 
4E66 CI 
4E67 El 
4E68 18E7 



JP 
CP 
JP 
CP 



CALL 

LD 

LD 

LD 

PUSH 

POP 

CALL 

RET 

LD 

CALL 

LD 

LD 

CALL 

LD 

LD 

LD 

LD 

INC 

JR 

LD 

CALL 

JR 

CALL 

RET 

LD 

OR 
JR 
CP 

JR 
INC 



INC 
JR 



OR 
RET 



70H 

10H 

Z.4E12H 

20H 

Z.4ED8H 

30H 

Z,4F50H 



Isolate option 

Test for OPEN request 

Jump if OPEN 

Test for INIT request 

Jump if INIT 

Test for create overflow entry 

Jump if create overflow entry 

None of the above - Ret caller 



Begin OPEN Processing 



4896H 
A,B 

(4FAFH) ,A 
(4FC0H) ,HL 
IX 
HL 

5027 H 
NZ 

HL,515DH 
509BH 
(4E4EH),A 
DE,5155H 
50D1H 
(5168H),HL 
(516AH),HL 
A,(5154H) 
C,A 
A 

NZ,4E40U 
C,A 
50FDH 
NZ,4E54H 
512EH 
NZ 
A, (HL) 



Z,4E51H 
00H 



Z.4E6AH 

L 



NZ,4E49H 
A, (5154H) 



C 

A,C 

04H 

C4E40H 



A,18H 



Save regs. setup return sequence 

A = Record length 

Save record length 

Callers sector buffer address 

DCB addr. to HL via stack 

HL = DCB addr. 

Move file name to local DCB (515D) 

Exit if illegal chars, found 

HL = Start of local DCB 

Compute hash code for filename 

Save hash code 

Addr. of password buffer 

Get encode of password into HL 

And save in 

Local DCB 

Get drive specification flag 

C = Default unit number (0) 

= FF if none given, else - drive no. 

Jump if drive specified 

Else begin with drive 0, and 

see if drive in C reg. present 

Jump if drive not present 

Drive found, get table in 4D00 

Exit if error during read 

Get hash code from HIT 

just read 

Set status flags for hash code 

Jump if slot empty 

Compare hash from HIT 

to computed 

Jump if hash codes match 

Else bump to next loc. 

in hash tab. 

Jump if hash tab. not finished 

No match. File not found, 

search next drive 

Unless drive was specified 

If drive specified 

file not found 

Else bump drive number 

Drive to A-reg. so we can test 

if all drives were searched 

Jump if all drives 

not searched 

Error code for file not found 

Set status flags 

Return to caller 



Clear stack and Prepare to Search HIT 



POP 
POP 
POP 
POP 
JR 



BC 
HL 
BC 
HL 
4E51H 



Clear stack 

Clear stack 

Restore drive no. to C-reg. 

Restore current hash sector index 

Go test next hash value 



Read Directory Sector Containing File Entry 
Matching Hash Code Found 



4E6A 


E5 


PUSH 


HL 


4E6B 


C5 


PUSH 


BC 


4E6C 


45 


LD 


B,L 


4E6D 


CDC14A 


CALL 


4AC1H 


4E70 


2803 


JR 


Z,4E75H 


4E72 


CI 


POP 


BC 


4E73 


El 


POP 


HL 


4E74 


C9 


RET 




* 


— 


Locate 


File Entr 


4E75 


E5 


PUSH 


HL 


4E76 


C5 


PUSH 


BC 


4E77 


CB7E 


BIT 


07H,(HL) 


4E79 


20E9 


JR 


NZ,4E64H 


4E7B 


3E05 


LD 


A,05H 


4E7D 


85 


ADD 


A,L 


4E7E 


6F 


LD 


L,A 


4E7F 


115D51 


LD 


D ,515DH 


4E82 


060B 


LD 


B, 0BH 


4E84 


1A 


LD 


A, (DE) 


4E85 


BE 


CP 


(HL) 


4E86 


20DC 


JR 


NZ,4E64H 


4E88 


23 


INC 


HL 


4E89 


13 


INC 


DE 


4E8A 


10F8 


DJNZ 


4E84H 



Save hash code address 
Save B/unit number 
B = Addr. of entry in directory 
Read directory sector into 4200 
Continue if no error- 
Else clear 
Stack and 
Return to caller w/error status 



Save addr. of file entry 

And dir index, unit number 

Test if primary directory entry 

Jump if not primary entry 

Offset to name in dir 

Add 5 to addr. of entry 

HL = Addr. of name in directory 

DE = Addr. of local DCB 

(contains name) 

Max No. of chars, to match 

A = Char, from local DCB 

Compare to Char, in directory sector 

Go to next entry if no match, else 

Bump directory entry address and 

Local DCB address 

Loop till all chars, in name matched 



Filename Located in Directory Sector 
Isolate Access Permissions and Password Encodes 



4E8C CI 
4E8D 79 
4E8E 325451 
4E91 El 
4E92 Fl 
4E93 Fl 
4E94 C5 
4E95 E5 

4E96 7E 
4E97 E607 
4E99 4F 
4E9A 0600 
4E9C 3E10 
4E9E 85 
4E9F 6F 
4EA0 ED5B6A51 
4EA4 E5 
4EA5 21A261 
4EA8 AF 
4EA9 ED52 
4EAB El 
4EAC 1821 



4ECF El 
4ED0 78 
4ED1 32B24F 
4ED4 CI 
4ED5 C3A74F 



4ED8 CD9648 
4EDB CD154E 
4EDE C8 
4EDF FE18 

4EE1 C0 



4EE2 
4EE4 
4EE7 
4EEA 
4EEB 
4 EEC 
4EEE 
4EEF 
4EF2 
4EF4 
4EF6 
4EF9 
4EFA 
4EFD 
4EFF 
4F02 
4F03 
4F05 
4F06 
4F07 
4F09 
4F0B 
4F0D 
4F0E 
4F0F 
4F12 
4F13 
4F16 
4F17 

4F1A 
4F1B 
4F1C 
4F1E 
4F1F 
4F21 
4F22 
4F24 
4F25 
4F27 
4F28 
4F2B 
4F2C 
4F2D 
4F2E 
4F31 
4F32 
4F35 
4F37 
4F38 
4F3A 
4F3B 
4F3D 
4F3E 
4F40 
4F42 
4F43 
4F45 



3E10 

321D4F 

3A5451 

4F 

3C 

2001 

4F 

CDFD50 

200B 

3809 

CD2E51 

C0 

CDAB50 

280F 

3A5451 

3C 

2006 

0C 

79 

FE04 

38E4 

3E1A 

C9 

45 

3A4E4E 

77 

CD4151 

C0 

CDC14A 

C0 

E5 

3600 

23 

3600 

23 

3600 

23 

3600 

23 

3AAF4F 

77 

23 

C5 

010F00 

EB 

215D51 

EDB0 

EB 

3600 

23 

3600 

23 

06 0A 

36FF 

23 

10FB 

CI 



POP 

LD 

LD 

POP 

POP 

POP 

PUSH 

PUSH 

LD 

AND 

LD 

LD 

LD 

ADD 

LD 

LD 

PUSH 

LD 

XOR 

SBC 

POP 

JR 



LD 

POP 

JP 



CALL 
CALL 
RET 
CP 

RET 



BC 
A,C 
(5154H) ,A 



AF 
BC 
HL 

A, (HL) 

07 H 

C,A 

B,00H 

A,10H 

A,L 

L,A 

DE, (516AH) 

HL 

HL,61A2H 

A 

HL,DE 

HL 

4ECFH 



(4FB2H) , 

BC 

4FA7H 



Restore unit number 

Move unit number to A reg. 

Save unit number 

HL = directory entry sector addr. 

Clear stack 

Clear stack 

save index/unit numcer 

Addr. of directory entry 

containing file 

Get first byte of directory entry 

Isolate permission bits 

And save in C 

Permission flags - no restriction 

Offset to password 

Gives addr. of update password 

HL = Addr. of password in dir entry 

Encode of password 

Save addr. of dir (16) entry 

HL = 24,994 

Clear carriage 

24,994 - encode of password 

Restore addr. of password 

Go fill in DCB. 



HL = Addr. of directory entry 
A = Access permission 
Save for storage into DCB 
Restore drive number to C-reg. 
Go fill in DCB 



INIT Processing 

4896H Save regs, setup exit sequence 

4E15H Make OPEN call 

Z Return if file found 

18H Test for file not found. Fall 

through if file not there 
NZ Return if some other error 



— File Does not Exist. Create Entry 



4F46 CDD64A 
4F49 El 



LD 

LD 

LD 

LD 

INC 

JR 

LD 

CALL 

JR 

JR 

CALL 

RET 

CALL 

JR 

LD 

INC 

JR 

INC 

LD 

CP 

JR 

LD 

RET 

LD 

LD 

LD 

CALL 

RET 

CALL 



RET 
PUSH 



INC 

LD 
INC 



LD 

INC 

PUSH 

LD 

EX 

LD 

LDIR 

EX 

LD 

INC 

LD 

INC 

LD 

LD 

INC 

DJNZ 

POP 



CALL 
POP 



A,10H 
(4F1DH) ,A 
A, (5154H) 
C,A 
A 

NZ,4EEFH 
C,A 
50FDH 
NZ,4EFFH 
C,4EFFH 
512EH 
NZ 

50ABH 
Z.4F0EH 
A,(5154H) 
A 

NZ,4F0BH 
C 

A,C 
04H 

C, 4EEFH 
A,1AH 

B,L 

A, (4E4EH) 

(HL) ,A 

5141H 

NZ 

4AC1H 

NZ 
HL 

(HL),00H 
HL 

(HL),00H 
HL 

(HL),00H 
HL 

(HL) ,00H 
HL 

A, (4FAFH) 
(HL) ,A 
HL 
BC 

BC000FH 
DE.HL 
HL,515DH 

DE,HL 
(HL),00H 
HL 

(HL),00H 
HL 

B,0AH 
(HL) ,0FFH 
HL 

4F40H 
BC 

4AD6H 
HL 



Byte of dir to be assigned 

Entry assigned. Unrestricted access 

Get drive specification 

Save it in C-reg. 

Test if drive no. was specified 

Jump if unit specified 

Current unit number to C-reg. 
Go retest unit 
Jump if drive not present 
Jump if drive not ready 
Read hash table 
Exit if error during HIT read 
Find available slot in HIT 
Go if slot for hash code found 
None left. Get drive spec. 
Was a drive specified 
Jump if yes (directory is full) 
Bump to next drive 
So we can test drive number 
Have all drives been searched 
If not, loop - else return 

space full error status 

Return to caller 

B = Directory sector no 

Get hash code 

Save in HIT 

Write updated HIT 

Ret. if error during write 

Read directory sector that will 

contain file entry 

Exit if error during read 

Save starting addr. of dir entry 

Clear access control 

Bump to byte 2 

Clear overflow pointer 

Bump to byte 3 

Clear reserved byte 

Bump to Byte 4 

Clear EOF offset byte 

Bump to 5th byte 

Get record length 

And save in directory entry 

Bump to 6th byte in directory 

Preserve BC. 

DE = dir addr. for name 
Internal DCB addr. 
Copy file name to die entry 
HL = Byte 15 of directory sector 
Clear EOF sector number (LSB) 
Bump to 16th byte of dir sector 
Clear EOF sector number (MSB) 
Bump to 17th byte of directory 
Number of bytes to initialize 

Store an FF in GAP field of 
. dir entry. Bump to next entry 

loop till all 10 gaps initialized 
Restore HIT slot index used to 
derive dir. sector #. 
Write updated directory sector 
Restore directory entry addr. to HL 
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4F4A C0 
4F4B CDA74F 
4F4E 37 
4F4F C9 



RET NZ Return if error 

CALL 4FA7H Go initialize DCB in user's area 
SCF Signal file not previously opened 

RET Return to caller 

Construct an Overflow Directory Entry 



1. Find an available slot in HIT sector 

2. Move file hash code to HIT slot located above 

3. Write updated HIT 

4. Read directory sector for HIT slot assigned 

5. Initialize directory sector entry for HIT assigned 
in step 1, as an overflow entry 

6. write directory sector containing overflow entry 

7. Read directory sector containing primary entry 

8. Update primary entry with overflow flag and pointer 

9. write updated primary entry 



4F50 DD4E06 
4F53 CD2E51 
4F56 C0 
4F57 DD7E07 
4F5A CDB650 
4F5D 3E1E 
4F5F C0 
4F60 45 
4F61 7D 
4F62 32A24F 
4F65 54 
4F66 DD5E07 

4F69 1A 
4F6A 77 
4F6B CD4151 
4F6E C0 
4F6F CDC14A 
4F72 C0 
4F73 3690 
4F75 2C 
4F76 C5 
4F77 3ABE4A 
4F7A 77 
4F7B 2C 
4F7C 0614 
4F7E 3600 
4F80 2C 
4F81 10FB 
4F83 E5 
4F84 060A 
4F86 36FF 
4F88 2C 
4F89 10FB 
4F8B Dl 
4F8C 13 
4F8D CI 
4F8E CDD64A 

4F91 C0 
4F92 3ABE4A 
4F95 47 
4F96 CDC14A 
4F99 C0 
4F9A 7D 
4F9B C61E 
4F9D 6F 
4F9E 36FE 
4FA0 2C 
4FA1 3600 
4FA3 CDD64A 
4FA6 C9 



LD 

CALL 

RET 



LD 
LD 

LD 

LD 

CALL 

RET 

CALL 

RET 

LD 

INC 

PUSH 

LD 

LD 

INC 

LD 

LD 

INC 

DJNZ 

PUSH 

LD 

LD 

INC 

DJNZ 

POP 

INC 

POP 

CALL 

RET 

LD 

LD 

CALL 

RET 

LD 

ADD 

LD 

LD 

INC 

LD 

CALL 

RET 



C, (IX+06H) 

512EH 

NZ 

A, (IX+07H) 
50B6H 
A,1EH 

NZ 

B, L 
A,L 

(4FA2H) ,A 

D,H 

E,(IX+07H) 

A, (DE) 

(HL) ,A 

5141H 

NZ 

4AC1H 

NZ 

(HL) ,90H 

L 

BC 

A, (4ABEH) 

(HL) ,A 

L 

B,14H 

(HL) ,00H 

L 

4F7EH 

HL 

B, 0AH 

(HL) ,0FFH 

L 

4F86H 

DE 

DE 

BC 

4AD6H 

NZ 

A, (4ABEH) 

B,A 

4AC1H 

NZ 

A,L 

A,1EH 

L,A 

(HL) ,0FEH 
L 

(HL) ,00H 
4AD6H 



C = drive number 

Read HIT 

Return if error during read 

A = Dir sector offset for this file 

Find an available hole in HIT 

Error code for directory full 

Return w/error if hash table full 

B = Next avail, loc. in HIT 

Move it to A-reg. 

Save address of overflow entry 

D = MSB addr. of HIT buffer 

E = LSB addr. of HIT buffer 

(index for this file) 

Get hash code for file from HIT 

Copy it to overflow entry 

Write updated HIT 

Return if error during WRITE 

Read dir sector for HIT slot assigned 

Ret if directory read error 

Flag dir entry as assigned/overflow 

Bump to 2nd byte of dir. entry 

Preserve unit number (C-reg.) 

A = dir sector index for this file 

Save as 2nd byte of overflow entry 

HL = 3rd byte of overflow entry 

B = no. of bytes to zero 

Zero a byte 

Bump to next byte of overflow entry 

Loop till 20 bytes cleared 

Save addr. of 1st GAP in entry 

Number of bytes to initialize 

Initialize 

Bump to next byte 

Loop till all GAP'S initialized 

DE = addr. of 1st GAP in entry 

Bump to number of grans (17th byte) 

Restore unit number to C-reg. 

Write updated directory sector 

(contains overflow entry) 

Exit if error during write 

Get sector number for primary entry 

Move to B for nucleus read routine 

Read primary entry sector 

Exit if error during read 

HL = Addr of primary entry in sector 

Position to 1st byte of 5th GAP 

HL = Directory entry (IE) 

Signal an overflow entry exists 

Bump to 2nd byte of 5th GAP 

Save pointer to overflow entry 

Write updated primary entry 

Return to caller 



Fill out DCB. Copy portions of primary entry to DCB. On 
entry DE = addr of directory entry, HL = addr of DCB. 

DE addr. of directory entry 

Prepare to load HL 

HL = addr. of caller's DCB 

Signal file open 

Bump to 2nd byte of DCB 

A = record length 

Set status flags for record length 

Load access flags (put here by 4ED1) 

Jump if rec. length is 

zero (phys. I/O) 

Else, signal logical I/O 

Force read on first access 

Save access flags, type of I/O 

Bump to 3rd byte of DCB 

and store a zero (Not used) 

Bump to 4th byte of DCB 

Save original DCB addr. 

Sector buffer addr. to DE 

LSB of buffer addr. to DCB 

Bump to 5th byte of DCB 

MSB of buffer to DCB 

Bump to 6th byte of DCB 

Restore dir. entry addr. 

Offset to end of cusrent record 

Bump to 7th byte of DCB 

Save drive no. 

Bump to 8th byte of DCB 

Save overflow pointer 

Bump to 9th byte of DCB 

Index to EOF byte in directory 

Add to LSB of addr. of 

base of directory sector 

Load EOF byte offset from dir entry 

Save EOF byte offset 

Bump to 10th byte of DCB 

Bump to next by of directory 



4FA7 EB 


EX 


DE,HL 


4FA8 DDE5 


PUSH 


IX 


4FAA El 


POP 


HL 


4FAB 3680 


LD 


(HL) ,80H 


4FAD 23 


INC 


HL 


4FAE 3E00 


LD 


A,00H 


4FB0 B7 


OR 


A 


4FB1 3E00 


LD 


A,00H 


4FB3 2802 


JR 


Z,4FB7H 


4FB5 F680 


OR 


80 H 


4FB7 F620 


OR 


20H 


4FB9 77 


LD 


(HL) ,A 


4FBA 23 


INC 


HL 


4FBB 3600 


LD 


(HD.00H 


4FBD 23 


INC 


HL 


4FBE D5 


PUSH 


DE 


4FBF 110000 


LD 


DE,0000H 


4FC2 73 


LD 


(HL) ,E 


4FC3 23 


INC 


HL 


4FC4 72 


LD 


(HL),D 


4FC5 23 


INC 


HL 


4FC6 Dl 


POP 


DE 


4FC7 3600 


LD 


(Hi),00H 


4FC9 23 


INC 


HL 


4FCA 71 


LD 


(HL) ,C 


4FCB 23 


INC 


HL 


4FCC 70 


LD 


(HL) ,B 


4FCD 23 


INC 


HL 


4FCE 3E03 


LD 


A,03H 


1FD0 83 


ADD 


A,E 


1FD1 5F 


LD 


E,A 


.1FD2 1A 


LD 


A, (DE) 


.IFD3 77 


LD 


(HL) ,A 


<IFD4 23 


INC 


HL 


4FD5 13 


INC 


DE 



4FD6 
4FD9 
4 FDA 
4FDB 
4 FDD 
4FDE 
4FE0 
4FE1 
4FE3 
4FE4 
4FE5 
4FE6 
4FE7 
4FE8 
4FEB 
4FEC 
4FED 
4FEE 
4FEF 
4FF0 



3AAF4F 

77 

23 

3600 

23 

3600 

23 

3E10 

83 

5F 

1A 

77 

23 

CD8051 

23 

13 

1A 

77 

23 

13 



4FF1 1A 
4FF2 77 
4FF3 23 
4FF4 E61F 

4FF6 3C 
4FF7 4F 
4FF8 0600 
4FFA 3E04 
4FFC F5 
4FFD 13 
4FFE 1A 
4FFF FEFE 

5001 3019 

5003 71 

5004 23 

5005 70 
5006223 

5007 1A 

5008 77 

5009 23 
500A 13 
500B 1A 
500C 77 
500D 23 
500E E61F 

5010 3C 

5011 81 

5012 4F 

5013 78 

5014 CE00 

5016 47 

5017 Fl 

5018 3D 

5019 20E1 
501B C9 



LD 

LD 

INC 

LD 

INC 

LD 

INC 

LD 

ADD 

LD 

LD 

LD 

INC 

CALL 

INC 

INC 

LD 

LD 

INC 

INC 

LD 
LD 
INC 
AND 

INC 

LD 

LD 

LD 

PUSH 

INC 

LD 

CP 

JR 

LD 

INC 

LD 

INC 

LD 

LD 

INC 

INC 



LD 

INC 

AND 

INC 

ADD 

LD 

LD 

ADC 

LD 

POP 

DEC 

JR 

RET 



A,(4FAFH) 
(HL) ,A 
HL 

(HL) ,00H 
HL 

(HL) ,00H 
HL 

A.10H 
A,E 
E,A 
A,(DE) 
(HL) ,A 
HL 

5180H 
HL 
DE 

A,(DE) 
(HL) ,A 
HL 
DE 

A,(DE) 
(HL) ,A 
HL 

1FH 

A 

C,A 

B, 00H 

A,04H 

AF 

DE 

A, (DE) 

0FEH 

NC,501CH 
(HL),C 
HL 

(HL) ,B 
HL 

A, (DE) 
(HL) ,A 
HL 
DE 

A, (DE) 
(HL) ,A 
HL 
1FH 



A 

A,C 

C,A 

A,B 

A,00H 

B,A 

AF 

A 

NZ,4FFCH 



Load record length 

Move record length to DCB 

Bump to 11th byte of DCB 

Clear LSB of next record no. 

Bump to MSB 

Clear MSB of next record no. 

Bump to 13th byte of DCB 

Index to EOF sector number 

Add to base of dir sector addr. 

Form addr. of 16th byte in DE 

Fetch EOF sector (LSB) 

And save in DCB 

Bump to 14th byte in DCB 

Copy MSB of number of sectors 

Bump to 1st track addr. in DCB 

Bump to 1st trk. addr. in directory 

Fetch starting track number 

Save in DCB 

Bump to gran count for 1st GAP in 

Dir sector and LSB of accumulated 

granule in DCB 

Fetch t of granules from dir entry 

Copy it to DCB 

Bump to track # for 2nd GAP 

Isolate no. of consecutive 

granules -1 for 1st GAP 

Gives no. of consecutive grans 

BC will contain total grans 



No. of extant pairs remaining 

Save count. 

Bump to next GAP 

Fetch next GAP from directory 

Look for end of GAP or 

overflow pointer 

Jump if end or overflow pointer 

Save LSB of total grans for 

previous GAP 

Save MSB of total 

Bump to first pos. in next GAP 

Fetch track for next GAP 

And save in DCB 

Bump to 2nd byte of GAP in DCB 

Bump to count in dir. sector 

Get count of assigned grans 

Save in DCB 

Bump to LSB of totals in DCB 

Isolate count from starting 

sector number 

Get true granule count 

Form new total granules 

Accessible thru 

GAPS thus far 

capture carry in of overflow 

BC = Total granules accessible 

Restore no. of GAP'S to copy 

Have we copied all GAP' s 

Jump if not 
Else ret to OPEN/INIT caller 



End of GAP'S in directory entry have been reached. 
Fill remainder of DCB GAP area with bytes of FF. 



Number of unfilled entries 

Times four 

gives byte count 

Move to B reg.for loop control 

Signal end of GAP's 

Bump to next entry in DCB 

Loop till DCB filled 

Signal good status 

Return to caller 



Number of chars, to copy 

Internal DCB address 

ASCII blank 

Move blank to internal DCB 

Bump to next internal DCB addr. 

Loop till internal DCB blank filled 

Max. number of chars in file name 

Address of password buffer 

Blank fill password buffer 

One byte at a time 

Loop till buffer blank filled 

Signal no drive spec (default) 

(Reversed if drive specified) 

Addr. of Internal DCB 

No. of chars, to move 

Move file name to buffer at 515D 

C = last char. in name 

A = 8 - number of chars, copied 

If = 8, then no. chars, were copied 

Jump if file name was legitimate 

Error code for illegal char. 

Set status flags 

And return to caller 

Get terminating character 

Test for / 

Jump if no extension 

Addr of ext. area in internal DCB 

Max. number of chars, in extension 

Copy extension 

Was terminating char, a . 

(password follows) 

Jump if not 

Addr of internal password buffer 

Maximum no. of chars, in password 

Copy password to internal PW buffer 



501C Fl 


POP 


AF 


501D 07 


RLCA 




501 E 07 


RLCA 




501F 47 


LD 


B,A 


5020 36FF 


LD 


(HL) ,0FFH 


5022 23 


INC 


HL 


5023 10FB 


DJNZ 


5020H 


5025 AF 


XOR 


A 


5026 C9 


RET 




* — Copy 


caller's 


file name t 


5027 060B 


LD 


B,0BH 


5029 115D51 


LD 


DE,515DH 


502C 3E20 


LD 


A,20H 


502E 12 


LD 


(DE),A 


502F 13 


INC 


DE 


5030 10FC 


DJNZ 


502EH 


5032 0608 


LD 


B,08H 


5034 115551 


LD 


DE,5155H 


5037 12 


LD 


(DE),A 


5038 13 


INC 


DE 


5039 10FC 


DJNZ 


5037H 


503B 3EFF 


LD 


A.0FFH 


503D 325451 


LD 


(5154H),/ 


5040 115D51 


LD 


DE,515DH 


5043 0608 


LD 


B, 08H 


5045 CD8150 


CALL 


5081H 


5048 4F 


LD 


C,A 


5049 78 


LD 


A,B 


504A FE08 


CP 


08 H 


504C 2004 


JR 


NZ,5052H 


504E 3E13 


LD 


A,13H 


5050 B7 


OR 


A 


5051 C9 


RET 




5052 79 


LD 


A,C 


5053 FE2F 


CP 


2FH 


5055 2008 


JR 


NZ.505FH 


5057 116551 


LD 


DE,5165H 


505A 0603 


LD 


B,03H 


505C CD8150 


CALL 


5081H 


505F FE2E 


CP 


2 EH 


5061 2008 


JR 


NZ.506BH 


5063 115551 


LD 


DE,5155H 


5066 0608 


LD 


B.08H 


5068 CD8150 


CALL 


5081H 
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Was terminating char, a : (drive 

specification follows) 

Jump if no 

Get drive number 

ASCII to binary 

Jump if drive number not a digit 

Test for drive no. greater than 3 

Jump if drive no. in range 

Error code for illegal drive no. 
Set status flags for error. 
Return to caller 
Save drive specification 
Signal good status (no error) 
Return to caller 



Copy characters pointed to by HL to location specified by 
DE. Only 0-9 and A-Z will be copied. Terminate when a 
non-eligible char, is found, or number of characters 
specified in B have been copied. 



506B FE3A 


CP 


3AH 


506D 2010 


JR 


NZ,507FH 


506F 7F. 


LD 


A, (HL) 


5070 D630 


SUB 


30H 


5072 3804 


JR 


C5078H 


5074 FE04 


CP 


04U 


5076 3804 


JR 


C507CH 


(0-3) 






507 8 3E20 


LD 


A,20H 


507A B7 


OR 


A 


507B C9 


RET 




507C 325451 


LD 


(5154H), 


507F AF 


XOR 


A 


5080 C9 


RET 





5081 


7E 


LD 


A, (HL) Load a char, from input string 


5082 


23 


INC 


HL Bump to next char. 


5083 


1809 


JR 


508EH Go qualify character 


5085 


7E 


LD 


A,(HL) 


Load next character 


5086 


23 


INC 


HL 


Bump to following character 


5087 


FE30 


CP 


30H 


Is character at least a 
numeric 


5089 


D8 


RET 


C 


Return if no 


508A 


FE3A 


CP 


3AH 


Character between 0-9 


508C 


3806 


JR 


C5094H 


Jump if yes 


508E 


FE41 


CP 


41 H 


Not 0-9. Test for A-Z 


5090 


D8 


RET 


C 


Return if between 9 and A 


5091 


FE5B 


CP 


5BH 


Test if character above z 


5093 


D0 


RET 


NC 


Return if above z. Not 
alphabetic 


5094 


12 


LD 


(DE),A 


Move char. to our DCB 


5095 


13 


INC 


DE 


Bump to next addr. in DCB 


5096 


10ED 


DJNZ 


5085H 


Loop till all characters 
copied 


5098 


7E 


LD 


A, (HL) 


^tch next char. from input 
string 


5099 


23 


INC 


HL 


3ump to next char, in input 
string 


509A 


C9 


RET 




Return to caller 



Compute hash code. Exclusive OR each character of file name 
with the following character. Multiply result by 2 and use 
as current character. 



509B 060B 
509D 0E00 
509F 7E 
50A0 23 
50A1 A9 
50A2 07 
50A3 4F 
50A4 10F9 

50A6 79 
50A7 B7 
50A8 C0 
50A9 3C 
50AA C9 



LD 

LD 

LD 

INC 

XOR 

RLCA 

LD 

DJNZ 

LD 
OR 

RET 
INC 
RET 



B, 0BH 
C,00H 
A, (HL) 



C,A 
509FH 

A,C 
A 
NZ 
A 



Iteration count 

Initialize a mark value 

Get a char from file name 
Bump to next char, in name 
Exclusive OR with floating mask 
Result times 2 
becomes new floating mask 
Loop till 11 characters of 
file name masked 

A = Final mask value 

Set status flags 

OK if non-zero 

Else force a value of 1 

and exit 



Find an available hole in HIT sector. 



50AB 
50AE 
50B0 
50B2 
50B4 
50B6 
50B7 
50BA 
50BB 
50BD 
50BE 
50BF 
50C0 
50C1 
50C3 
50C4 
50C6 
50C8 
50C9 
50CB 
50CC 
50CE 
50D0 



3A4040 

E6E7 

FE40 

3002 

F680 

6F 

CDBD50 

C8 

2E40 

7E 

B7 

C8 

7D 

C620 

6F 

30F7 

C641 

6F 

E6E7 

BD 

28EF 

F601 

C9 



LD 

AND 

CP 

JR 

OR 

LD 

CALL 

RET 

LD 

LD 

OR 

RET 

LD 

ADD 

LD 

JR 

ADD 

LD 

AND 

CP 

JR 

OR 

RET 



A, (4040H) 

0E7H 

40H 

NC,50B6H 

80 H 

L,A 

50B 

Z 

L,40H 

A, (HL) 

A 

Z 

A,L 

A,20H 

L,A 

NC50BDH 

A,41H 

L,A 

0E7H 

L 

Z,50BDH 

01H 



Choose a random number 

Force it to 00-07, 20-27, 40-47, 

Then test if below 40 

Jump if not, else 

force it 80-87, A0-A7, C0-C7, or E0-E7 

Form beginning search address in HL 

Search HIT, look for available slot 

Exit if one found 

Search again from start of table 

Get a HIT entry 

Set status floor 

Exit if avail. byte found 

Bump to first 

Byte of next set of entries 

Reform address 

Jump if end of table not reached 
Restart search at 2, 3, ... of a set. 
Reform addr in range 4X-47 , 6X-67,... 
where x=l,2,...7 

If addr LSB = E7, found end of table 
Jump if not end of table 
Signal no available entries 
Return to caller 



Compute encode of password in buffer at 5155. 
On entry DE = addr. of password buffer 



50D1 21FFFF 


LD 


HL,0FFFFH 


50D4 0608 


LD 


B, 08H 


50D6 7B 


LD 


A,E 


50D7 C607 


ADD 


A,07H 


50D9 5F 


LD 


E,A 


50DA 3001 


JR 


NC.50DDH 


50DC 14 


INC 


D 


50DD 1A 


LD 


A, (DE) 


50DE D5 


PUSH 


DE 


50DF 57 


LD 


D,A 


50E0 5C 


LD 


E,H 


50E1 7D 


LD 


A,L 


50E2 E607 


AND 


07 H 


50E4 0F 


RRCA 




50E5 0F 


RRCA 




50E6 0F 


RRCA 





Mask value used for encode 

Max. no. chars, to encode 

A = LSB of password buffer 

Add 7 to position to end 

of buffer. Must test for CARRY 

And bump MSB if true 

Bump MSB of password buffer 

Fetch char, from password buffer 

Save current buffer address 

Save char, to be encoded 

E ■= Mark Value 1 (MV1) 

A =■ Mark Value 2 (MV2) 

Reform MV2 by Exclusive ORing 

lower 3 bits and upper 3 bits 

Reposition lower 3 bits 

to upper 3 bits 



50E7 AD 
50E8 6F 
50E9 2600 
50EB 29 
50EC 29 
50ED 29 
50EE 29 
50EF AC 
50F0 AA 

50F1 57 
50F2 7D 
50F3 29 
50F4 AC 
50F5 AB 
50F6 5F 
50F7 EB 
50F8 Dl 
50F9 IB 
50FA 10E1 
50 FC C9 



XOR 


L 


LD 


L,A 


LD 


H,00H 


ADD 


HL,HL 


ADD 


HL,HL 


ADD 


HL,HL 


ADD 


HL,HL 


XOR 


H 


XOR 


D 


LD 


D,A 


LD 


A,L 


ADD 


HL, HL 


XOR 


H 


XOR 


E 


LD 


E,A 


EX 


DE,HL 


POP 


DE 


DEC 


DE 


DJNZ 


50DDH 


RET 





Exclusive OR lower and upper 3 bits 

And save as new MV2 

Clear H to multiply new MV2 by 16 

MV2 * 2 

MV2 * 4 

MV2 * 8 

MV2 * 16 

Combine upper 8 bits of HV2 * 16 

and partially reformed MV2 and 

current character 

Save upper 8 bits of encode 

Preserve lower 8 bits of MV2 * 16 

Compute MV2 * 32 

Combine upper 8 bits of MV2 * 32 

With lower 8 bits of MV2 * 16 and MV1 

Save lower 8 bits of encode 

HL = current encode 

Password buffer address 

Skip down to next char. 

Loop till all characters encoded 

Return to caller 



Determine drive availability. Select drive and wait for 
index. If no index detected within approx. 1 sec. there 
no drive, or the drive is not ready. 



Clear controller by sending it 

a force interrupt command 

Select unit in C-reg. 

Save caller's BC 

Count for approx. 1 sec. 

Get disk status 

Loop till index 

Now 

wait 1 revolution 

And test for index again 

Loop till 2nd index 

Restore caller's BC 

This code is meaningless 

and will always 

Return a zero in the A-register 

Return to caller 



Decrement count in BC while waiting for INDEX. If count 
goes to zero before INDEX detected, return to caller of 
50FD with a non-zero status. 



50FD 3ED0 


LD 


A,0D0H 


50FF 32EC37 


LD 


(37ECH),A 


5102 CD0046 


CALL 


4600H 


5105 C5 


PUSH 


BC 


5106 015531 


LD 


BC,3155H 


5109 CD1E51 


CALL 


511EH 


510C 20FB 


JR 


NZ,5109H 


510E CD1E51 


CALL 


511EH 


5111 28FB 


JR 


Z,510EH 


5113 CD1E51 


CALL 


511EH 


5116 20FB 


JR 


NZ,5113H 


5118 CI 


POP 


BC 


5119 07 


RLCA 




511A E680 


AND 


80 H 


51 1C 87 


ADD 


A,A 


511D C9 


RET 





511E 0B 


DEC 


BC 


Decrement count 


511F 78 


LD 


A,B 


Combine both halves 


5120 Bl 


OR 


C 


Set status flag 


5121 2806 


JR 


Z.5129H 


Go if count reached zero (error) 


5123 3AEC37 


LD 


A, (37ECH) 


Else get click status 


5126 CB4F 


BIT 


01H,A 


Test for index 


5128 C9 


RET 




And return to caller 


5129 CI 


POP 


BC 


Clear stack 


51 2A CI 


POP 


BC 


Clear stack 


512B F601 


OR 


01H 


Return to 


512D C9 


RET 




50FD caller w/error status 


* Read 


HIT sector for drive 


sqecified in C register 


51 2E C5 


PUSH 


BC 


Save caller's 


512F D5 


PUSH 


DE 


BC and DE 


5130 CD554B 


CALL 


4B55H 


Get directory into D reg. 


5133 1E01 


LD 


E,01H 


E = sector number for HIT 


5135 21004D 


LD 


HL,4D00H 


Buffer address 


5138 CD354B 


CALL 


4B35H 


Read HIT sector from directory track 


513C Dl 


POP 


DE 


Restore caller's 


513C CI 


POP 


BC 


BC and DE 


513D C8 


RET 


Z 


If no error return with good status 


513E 3E16 


LD 


A,16H 


Else signal HIT read error 


5140 C9 

* 


RET 




Then return to caller 


* Write HIT sector for drive specified in C register 

* 


5141 C5 


PUSH 


BC 


Save caller's 


5142 D5 


PUSH 


DE 


BC and DE registers 


5143 CD554B 


CALL 


4B55H 


Get directory track number 
for unit in C-reg. 


5146 1E01 


LD 


E,01H 


Specify sector 1 (HIT sector) 


5148 21004D 


LD 


HL,4D00H 


Address of HIT sector buffer 


514B CDEF46 


CALL 


46EFH 


Write HIT sector 


514E Dl 


POP 


DE 


Restore caller's 


514F CI 


POP 


BC 


BC and DE 


5150 C8 


RET 


Z 


Exit if no error during write 


5151 3E17 


LD 


A,17H 


Else signal HIT write error 


5153 C9 

* 


RET 




And return to caller 


* 

5154 00 

* 
* 


DEFB 


00B 


Drive specification (FF if none) 


* 

5180 13 


INC 


DE 


Bump to MSB of EOF. 


5181 1A 


LD 


A, (DE) 


Fetch MSB of EOF. 


5182 77 


LD 


(HL) ,A 


Copy to DCB 


5183 DD7E08 


LD 


A, (IX+08H) 


Fetch EOF address from DCB 


5186 B7 


OR 


A 


Set status flags 


5187 C8 


RET 


Z 


Exit if INIT or OPEN call 


5188 DD7E0C 


LD 


A, (IX+0CH) 




5188 DD350C 


DEC 


(IX+0CH) 




518E B7 


OR 


A 




518F C0 


RET 


NZ 




5190 DD350D 


DEC 


(IX+0DH) 




5193 C9 


RET 
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**************** 



************* 



***************** 



SYS3/SYS * 

* 

CLOSE, KILL Processing * 

* 

****************************************** 



4 tat) DDE5 
4E02 E5 
4E03 F5 



PUSH IX 

PUSH HL 

PUSH AF 



Save DCB address 
Save buffer address 
Save request code 



* Validate address of DCB and buffer, validate drive 

* number, HIT index and beginning track number 



4E04 7A 
4E05 FE40 
4E07 385C 
4E09 214A40 
4E0C BE 
4E0D 2802 
4E0F 3054 
4E11 1A 
4E12 CB7F 
4E14 284F 
4E16 D5 
4E17 DDE1 
4E19 DD7E04 
4E1C FE40 
4E1E 3845 
4E20 BE 
4E21 2802 
4E23 3040 
4E25 DD7E06 
4E28 FE00 
4E2A 3839 
4E2C FE04 
4E2E 3035 
4E30 DD7E07 
4E33 CB67 
4E35 202E 
4E37 CB5F 
4E39 202A 
4E3B DD7E0E 
4E3E FE00 
4E40 200A 
4E42 DD7E0F 
4E45 FE20 
4E47 381C 

4E49 DD7E0E 
4E4C FEFF 
4E4E 2804 
4E50 FE23 
4E52 3011 



LD 

CP 

JR 

LD 

CP 

JR 

JR 

LD 

BIT 

JR 

PUSH 

POP 

LD 

CP 

JR 

CP 

JR 

JR 

LD 

CP 

JR 

CP 

JR 



BIT 

JR 

LD 

CP 

JR 

LD 

CP 

JR 

LD 
CP 
JR 
CP 
JR 



H 1 



A,D 

40H 

C4E65H 

HL,404AH 

(HL) 

Z,4E11H. 

NC.4E65 

A,(DE) 

07H,A 

Z,4E65H 

DE 

IX 

A,(IX+04H) 

40H 

C.4E65H 

(HL) 

Z,4E25H 

NC,4E65H 

A,(IX+06H) 

00H 

C.4E65H 

04H 

NC.4E65H 

A,(IX+07H) 

04H,A 

NZ,4E65H 

03H,A 

NZ.4E65H 

A, (IX+0EH) 

00H 

NZ,4E4CH 

A, (IX+0FH) 

20H 

C,4E65H 

A, (IX+0EH) 

0FFH 

Z,4E54H 

23H 

NC,4E65H 



A = MSB of DCB addr. 

Is DCB in system area? 

Error if yes 

Addr. of MSB of mem. size 

Is DCB at end of memory? 

Error if yes 

Error if DCB addr. above mem. size 

Load 1st byte of DCB 

Is file open 

Error if not 

DCB addr. to stack 

Then load it into IX 

A = MSB of buffer addr. 

Is buffer in system area 

Error if yes 

Is buffer start at end of memory 

Error if so, or if buffer 

start above end of memory 

Load drive number 

Test for illegal drive number 

Error if drive out of range 

Compare with max. drive number 

Error if drive out of range 

Load HIT index 

Test unused bit (should be 0) 

Error if on (HIT) = 10) 

Test unused bit (should be 0) 

Error if on (HIT) = 08) 

Load track number 1st GAP 

Are any tracks assigned 

Jump if yes 

No, fetch gran count (may be track 

If track 0, must be 2nd granule 

Error if 1st granule (track 0, 

sector reserved for system use) 

Reload track number 1st GAP 

Test for no tracks assigned 

Jump if none assigned 

Greater than max. no. of tracks 

Error if track greater than 34 



Parameter validation complete. Test for 
CLOSE or KILL option. 



4E54 Fl 


POP 


AF 


4E55 El 


POP 


HL 


4E56 DDE1 


POP 


IX 


4E58 E670 


AND 


70H 


4E5A FE10 


CP 


10H 


4E5C CA6D4E 


JP 


Z,4E6DH 


4E5F FE20 


CP 


20H 


4E61 CAD04F 


JP 


Z,4FD0H 


4E64 C9 


RET 




4E65 Fl 


POP 


AF 


4E66 El 


POP 


HL 


4E67 DDE1 


POP 


IX 


4E69 3E26 


LD 


A,26H 


4E6B B7 


OR 


A 


4E6C C9 


RET 




l 





CLOSE Proces 


4E6D CD9248 


CALL 


4892H 


4E70 C0 


RET 


NZ 


4E71 CD7848 


CALL 


4878H 


4E74 C0 


RET 




4E75 DD4607 


LD 


B, (IX+07H) 


4E78 DD4E06 


LD 


C, (IX+06H) 


4E7B CDC14A 


CALL 


4AC1H 


4E7E C0 


RET 


NZ 


4E7F 3E03 


LD 


A,03H 


4E81 85 


ADD 


A,L 


4E82 6F 


LD 


L,A 


4E83 E5 


PUSH 


HL 


4E84 DD7E08 


LD 


A, (IX+08H) 


4E87 BE 


CP 


(HL) 


4E88 2014 


JR 


NZ,4E9EH 


4E8A 3E11 


LD 


A,11H 


4E8C 85 


ADD 


A,L 


4E8D 6F 


LD 


L,A 


4E8E DD7E0C 


LD 


A, (IX+0CH) 


4E91 BE 


CP 


(HL) 


4E92 200A 


JR 


NZ.4E9EH 


4E94 2C 


INC 


L 


4E95 DD7E0D 


LD 


A, (IX+0DH) 


4E98 BE 


CP 


(HL) 


4E99 2003 


JR 


NZ.4E9EH 


4E9B Fl 


POP 


AF 


4E9C 1818 


JR 


4EB6H 


4E9E El 


POP 


HL 



Restore request code 

Restore buffer address 

Restore DCB address 

Isolate option code 

Test for CLOSE request 

Jump if CLOSE call 

Test for KILL request 

Jump if KILL call 

Neither, ignore request 

Various errors. Restore req. coi 

Buffer addr. 

And DCB addr. 

Error code for file not opened 

Set status flags 

Return with error status 



Save caller's registers 

Error exit if file not open 

Flush sector buffer if necessary 

Exit if error while purging buffer 

11 =■■ HIT Index (Dir sector no.) 

C = Unit 

Read directory entry into 4D00. 

HL = addr. of entry 

Exit if error during read 

Offset to EOF byte 

Add offset to addr. of entry 

Reform addr. 

Save addr. of EOF byte 

A = EOF offset from DCB 

DCB EOF = Dir entry EOF? 

No, go update dir entry EOF 

Inc to EOF sector no. in directory 

Add to current directory address 

Reform directory address 

LSB of EOF sector from DCB 

Compare to LSB of EOF sector 

from directory 

If unequal, update dir EOF sector # 

Bump to MSB of EOF sector # in dir 

MSB of EOF sector from DCB 

Compare to MSB of EOF sector in dir 

If unequal, update dir EOF sector t 

Clear stack 

Go compute total no. of grans 

Restore base address of 

directory entry + 3 



4E9F DD7E08 


LD 


A, (IX+08H) 


4EA2 77 


LD 


(HL) ,A 


4EA3 3E11 


LD 


A,11H 


4EA5 85 


ADD 


A,L 


4EA6 6F 


LD 


L,A 


4EA7 DD7E0C 


LD 


A,(IX+0CH) 


4EAA 77 


LD 


(HL) ,A 


4EAB 2C 


INC 


L 


4EAC DD7E0D 


LD 


A, (IX+0DH) 


4EAF 77 


LD 


(HL) ,A 


4EB0 E5 


PUSH 


HL 


4EB1 CDD64A 


CALL 


4AD6H 


4EB4 El 


POP 


HL 


4EB5 C0 


RET 


NZ 


4EB6 2C 


INC 


L 


4EB7 110000 


LD 


DE,0000H 


4EBA 7E 


LD 


A, (HL) 


4EBB 2C 


INC 


L 


4EBC FEFE 


CP 


0FEH 


4EBE 300C 


JR 


NC,4ECCH 


4EC0 7E 


LD 


A, (HL) 


4EC1 2C 


INC 


L 


4EC2 E61F 


AND 


1FH 


4EC4 3C 


INC 


A 


4EC5 83 


ADD 


A,E 


4EC6 5F 


LD 


E,A 


4EC7 30F1 


JR 


NC4EBAH 


4EC9 14 


INC 


D 


4ECA 18EE 


JR 


4EBAH 


4ECC 200B 


JR 


NZ,4ED9H 


4ECE 46 


LD 


B, (HL) 


4ECF CDC14A 


CALL 


4AC1H 


4ED2 C0 


RET 


NZ 


4ED3 7D 


LD 


A,L 


4ED4 C616 


ADD 


A,16H 


4ED6 6F 


LD 


L,A 


4ED7 18E1 


JR 


4EBAH 



Load EOF byte offset from DCB 

And copy to directory 

Offset to EOF sector no. in dir 

Add to current directory address 

And reform address in HL 

Fetch LSB of ending sector 

number from DCB 

Move it to directory entry 

Bump to addr. of MSB of ending 

sector in directory 

Fetch MSB of ending sector no. 

And copy to directory 

Save current directory address 

Write updated directory entry 

Restore dir. addr. 

Exit if error during write 

Bump to track number for 1st GAP 

Zero storage for total granules 

Fetch starting track no. from a GAP 

Bump pointer to granule count 

Test for overflow or end of GAPS 

Jump if overflow or end of GAPS 

A=No. of granules 

Bump to 1st byte of next GAP 

Isolate count of granules 

Gives true value 

Accumulate total no. of grans in DE 

LSB of granule total 

Jump if LSB not over 255 yet 

If it is, bump MSB 

Loop till all granules summed 

Jump if end of GAPS reached 

Load HIT index for dir overflow 

Read overflow directory entry 

Exit if error during read 

Get LSB of directory address 

Then add 16 to reach GAP address 

Reform addr. of GAPS in HL 

Scan till end of GAPS reached 



Test for change in file size using following method: 
Directory file size (granule total from directory 
GAP'S) (minus) true file size (granule total from 
ending sector in *DCB/5) 

yields: 

(Minus, if file has increased) 
(zero, if file size is unchanged) 
(positive, if file has decreased) 



4ED9 E5 


PUSH 


HL 


4 EDA DD6E0C 


LD 


L, (IX+0CH) 


4EDD DD660D 


LD 


H,(IX+0DH) 


4EE0 3E05 


LD 


A,05H 


4EE2 CD844B 


CALL 


4B84H 


4EE5 23 


INC 


HL 


4EE6 AF 


XOR 


A 


4EE7 EB 


EX 


DE,HL 


4EE8 ED52 


SBC 


HL,DE 


4EEA EB 


EX 


DE,HL 


4EEB El 


POP 


HL 


4 EEC CA7B4F 


JP 


Z,4F7BH 


4EEF DA7B4F 


JP 


C4F7BH 


4EF2 2D 


DEC 


L 


4EF3 2D 


DEC 


L 


4EF4 E5 


PUSH 


HL 


4EF5 D5 


PUSH 


DE 


4EF6 CDF04A 


CALL 


4AF0H 


4EF9 2003 


JR 


NZ,4EFEH 


4EFB CD6850 


CALL 


5068H 


4EFE Dl 


POP 


DE 


4EFF El 


POP 


HL 


4F00 C0 


RET 


NZ 


4F01 7B 


LD 


A,E 


4F02 FE00 


CP 


00H 


4F04 2869 


JR 


Z,4F6FH 


4F06 D5 


PUSH 


DE 


4F07 7E 


LD 


A,(HL) 


4F08 E6E0 


AND 


0E0H 


4F0A 07 


RLCA 




4F0B 07 


RLCA 




4F0C 07 


RLCA 




4F0D 5F 


LD 


E,A 


4F0E 7E 


LD 


A, (HL) 


4F0F E61F 


AND 


1FH 


4F11 83 


ADD 


A,E 


4F12 5F 


LD 


E,A 


4F13 E6FE 


AND 


0FEH 


4F15 0F 


RRCA 




4F16 32224F 


LD 


(4F22H) ,A 


4F19 7B 


LD 


A,E 


4F1A E601 


AND 


01H 



Save current addr in dir. End of GAPS 

L = LSB of number of records 

H = MSB of number of records 

A = Divisor 

Modulo divide HL by 5 

Quotient + 1 

(no. of grans = true size) 

Clear carry 

HL = # of granules in directory. 

DE = true file size 

Compare true file size (by record 

count in DCB) to directory file 

size (by GAP'S). Save diff. in DE 

Restore current addr. in 

directory. End of GAPS 

If dir gran count is equal to or 

greater, don't update directory 

Backspace to granule count 

For last GAP 

Save addr of last good GAP in dir 

Save granule difference 

Read GAT sector into 4D00 

Jump if error during read. Skip 

read into 5100 

Read HIT sector into 5100 

Restore granule difference 

Restore addr of last GAP in dir 

Exit if GAT read error either time 

Load LSB of granule difference 

Test if done 

Jump if done 

Save current granule difference 

Fetch granule count from last 

GAP in directory 

Isolate starting gran no. (bit 5) 

Shift into low order of A register 

Gives if file starts on sector 

of first track, or 1 if file begins 

on sector 5 of first track 

Refetch gran count from last GAP 

Isolate no. of assigned grans 

Add offset for 1st gran, save in E 

Adds if starting sect # is 

Adds 1 if starting sect # is 5 

Clear bit 0, so division will 

not affect carry 

Divide granule count by 2 

And save number of tracks 

Restore original gran count & offset 

Isolate Bit 
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Construct mask for clearing bit in GAT for last gran assigned 
Use following rules: 



t of sectors in 
granule count 


sector 



offset 

1 


EVEN 


FE 


FD 


ODD 


FD 


FE 



Then add 1 and compliment 

to generate a mark for clearing 

the last assigned granule in 

the GAT. Save mask 

Backspace GAP pointer to track no. 

Fetch starting track number for GAP 

Add no. of consecutively assigned 

tracks. Gives ending track # 

Save directory GAP addr. in DE 

Form address of GAT entry for 

ending track in HL 

Restore mask used to clear last 

granule assigned 

Clear bit for last gran assigned 

And restore byte with cleared 

bit to GAT buffer 



Look for GAPS which have no granules assigned. When one 
is found, set both bytes of the GAP entry to FF. If all 
GAP's in an entry are released (set to FF's), release the 
directory entry and the HIT index in the HIT sector for 
the directory entry. 



4F1C 3C 
4F1D 2F 
4F1E F5 


INC 
CPL 
PUSH 


A 
AF 


4F1F 2B 
4F20 7E 
4F21 C600 


DEC 

LD 

ADD 


HL 

A,(HL) 

A,00H 


4F23 EB 
4F24 264D 
4F26 6F 
4F27 Fl 


EX 
LD 
LD 
POP 


DE,HL 
H,4DH 
L,A 
AF 


4F28 A6 
4F29 77 


AND 
LD 


(HL) 
(HL) ,A 



4F2A EB 


EX 


DE,HL 


4F2B 23 


INC 


HL 


4F2C 35 


DEC 


(HL) 


4F2D 7E 


LD 


A, (HL) 


4F2E 3C 


INC 


A 


4F2F E61F 


AND 


1FH 


4F31 Dl 


POP 


DE 


4F32 2038 


JR 


NZ,4F6CH 


4F34 36FF 


LD 


(HL) ,0FFH 


4F36 2B 


DEC 


HL 


4F37 36FF 


LD 


(HL) ,0FFH 


4F39 2B 


DEC 


HL 


4F3A 7D 


LD 


A,L 


4F3B E61F 


AND 


1FH 


4F3D FE15 


CP 


15H 


4F3F 202B 


JR 


NZ,4F6CH 


4F41 AD 


XOR 


L 


4F42 6F 


LD 


L,A 


4F43 7E 


LD 


A, (HL) 


4F44 3600 


LD 


(HL) ,00H 


4F46 23 


INC 


HL 


4F47 56 


LD 


D,(HL) 


4F48 2651 


LD 


H.51H 


4F4A 68 


LD 


L,B 


4F4B 3600 


LD 


(HL),00H 


4F4D CB7F 


BIT 


07H,A 


4F4F 281E 


JR 


Z,4F6FH 


4F51 D5 


PUSH 


DE 


4F52 CDD64A 


CALL 


4AD6H 


4F55 Dl 


POP 


DE 


4F56 C0 


RET 


NZ 


4F57 78 


LD 


A,B 


4F58 AA 


XOR 


D 


4F59 E607 


AND 


07 H 


4F5B 42 


LD 


B,D 


4F5C C4C14A 


CALL 


NZ,4AC1H 


4F5F C0 


RET 


NZ 


4F60 78 


LD 


A,B 


4F61 E6E0 


AND 


0E0H 


4F63 C61F 


ADD 


A,1FH 


4F65 6F 


LD 


L,A 


4F66 36FF 


LD 


(HL) ,0FFH 


4F68 2B 


DEC 


HL 


4F69 36FF 


LD 


(HL) ,0FFH 


4F6B 2B 


DEC 


HL 


4F6C ID 


DEC 


E 


4F6D 1892 


JR 


4F01H 


* Write 


updated directory entr 


4F6F CDD64A 


CALL 


4AD6H 


4F72 C0 


RET 


NZ 


4F73 CD7750 


CALL 


5077H 


4F76 C0 


RET 


NZ 


4F77 CD034B 


CALL 


4B03H 


4F7A C0 


RET 


NZ 


4F7B DD7E07 


LD 


A, (IX+07H) 


4F7E A8 


XOR 


B 


4F7F E61F 


AND 


1FH 


4F81 C4C14A 


CALL 


NZ,4AC1H 


4F84 C0 


RET 


NZ 


4F85 DD7E06 


LD 


A, (IX+06H) 


4F88 E603 


AND 


03H 


4F8A F630 


OR 


30H 


4F8C 32C84F 


LD 


(4FC8H) ,A 



Restore directory GAP addr to HL 

Skip forward to number of 

granules assigned this GAP 

Prepare to test for no grans assigned 

Fetch # granules assigned - 2 

Add 1. Yields zero if none assigned 

Isolate true gran count for GAP 

Restore difference in granule 

count between DCB & dir. 

Jump if at least one gran assigned 

No granules assigned to this GAP 

Initialize GAP to FF 

Including track number 

Backspace to gran count for last GAP 

Then isolate GAP index 

And test for start of GAP 

entries in directory. If not 

start of GAP area - Go 

Form LSB of dir entry addr in A 

Then reform start of directory 

entry address in HL 

Fetch access and dir type flags 

Flag directory entry as available 

Bump pointer to overflow byte 

pointer in directory 

Fetch possible overflow pointer 

Origin of HIT buffer to H 

HIT index for file to HL. 

HL = addr. of HIT index 

Clear HIT entry for dir entry 

Test type of dir entry being cleared 

Jump if primary directory entry 

Save remainder of gran count diff 

Write released directory entry 

Restore granule count difference 

Exit if error during sector rewrite 

Fetch HIT index and compare 

Sector no. portion of it with 

the sector no. from overflow pointer 

Save sector number for next 

overflow pointer 

Read overflow directory entry 

{if there is one) 

Exit if error during read 

A = entry addr/sector no. -2 

Isolate directory entry address 

Skip to end of GAP's in overflow 

directory entry 

Form ending dir addr in HL 

Signal -2nd of GAP's 

and backspace to starting track no. 

Initialize it on end of GAP's 

Backspace to gran count for next GAP 

Reduce difference in gran count 

and go test if done 



Write updated directory entry 

Exit if error during write 

Maybe write updated HIT sector 

Exit if error during HIT rewrite 

Write GAT sector 

Exit if error during write 

Load HIT index 

Compare with last HIT index 

Isolate any possible difference 

They were different, read 

directory entry 

Exit if error during read 

Load drive number 

Force a value between and 3 

Reconstruct as ASCII value 

to be restored into DCB 



4F8F 2642 


LD 


H,42H 


4F91 DD7E07 


LD 


A, (IX+07H) 


4F94 E6E0 


AND 


0E0H 


4F96 F605 


OR 


05H 


4F98 6F 


LD 


L,A 


4F99 E5 


PUSH 


HL 


4F9A DDE5 


PUSH 


IX 


4F9C Dl 


POP 


DE 


4F9D 0608 


LD 


B,08H 


4F9F 7E 


LD 


A, (HL) 


4FA0 FE20 


CP 


20H 


4FA2 2805 


JR 


Z,4FA9H 


4FA4 12 


LD 


(DE) ,A 


4FA5 23 


INC 


HL 


4FA6 13 


INC 


DE 


4FA7 10F6 


DJNZ 


4F9FH 


4FA9 El 


POP 


HL 


4FAA 7D 


LD 


A,L 


4FAB C608 


ADD 


A,08H 


4FAD 6F 


LD 


L,A 


4FAE 7E 


LD 


A, (HL) 


4FAF FE20 


CP 


20H 


4FB1 2810 


JR 


Z,4FC3H 


4FB3 3E2F 


LD 


A,2FH 


4FB5 12 


LD 


(DE) ,A 


4FB6 13 


INC 


DE 


4FB7 0603 


LD 


B,03H 


4FB9 7E 


LD 


A, (HL) 


4FBA FE20 


CP 


20H 


4FBC 2805 


JR 


Z.4FC3H 


4FBE 12 


LD 


(DE) ,A 


4FBF 23 


INC 


HL 


4FC0 13 


INC 


DE 


4FC1 10F6 


DJNZ 


4FB9H 


4FC3 3E3A 


LD 


A,3AH 


4FC5 12 


LD 


(DE) ,A 


4FC6 13 


INC 


DE 


4FC7 3E00 


LD 


A,00H 


4FC9 12 


LD 


(DE) ,A 


4FCA 13 


INC 


DE 


4FCB 3E03 


LD 


A,03H 


4FCD 12 


LD 


(DE),A 


4FCE AF 


XOR 


A 


4FCF C9 


RET 




* 





KILL Proce 


4FD0 CD9248 


CALL 


4892H 


4FD3 C0 


RET 


NZ 


4FD4 DD7E01 


LD 


A, (IX+01H) 


4FD7 E607 


AND 


07 H 


4FD9 FE02 


CP 


02H 


4FDB 3804 


JR 


C,4FE1H 


4FDD 3E25 


LD 


A,25H 


4FDF B7 


OR 


A 


4FE0 C9 


RET 




4FE1 DD4E06 


LD 


C, (IX+06H) 


4FE4 DD4607 


LD 


B, (IX+07H) 


4FE7 CD6850 


CALL 


5068H 


4FEA C0 


RET 


NZ 


4FEB CDF04A 


CALL 


4AF0H 


4FEE C0 


RET 


NZ 


4FEF CDC14A 


CALL 


4AC1H 


4FF2 C0 


RET 


NZ 


4FF3 3E16 


LD 


A,16H 


4FF5 85 


ADD 


A,L 


4FF6 6F 


LD 


L,A 


4FF7 5E 


LD 


E,(HL) 


4FF8 2C 


INC 


L 


4FF9 56 


LD 


D,(HL) 


4FFA 7B 


LD 


A,E 


4FFB FEFE 


CP 


0FEH 


4FFD 3006 


JR 


NC,5005H 


4FFF 2C 


INC 


L 


5000 CD3950 


CALL 


5039H 


5003 18F2 


JR 


4FF7H 


5005 7D 


LD 


A,L 


5006 E6E0 


AND 


0E0H 


5008 6F 


LD 


L,A 


5009 3600 


LD 


(HL) ,00H 


500B C5 


PUSH 


BC 


500C D5 


PUSH 


DE 


500D E5 


PUSH 


HL 


500E Dl 


POP 


DE 


500F 13 


INC 


DE 


5010 011F00 


LD 


BC,001FH 


5013 EDB0 


LDIR 




5015 Dl 


POP 


DE 


5016 CI 


POP 


BC 


5017 CDD64A 


CALL 


4AD6H 


501A C0 


RET 


NZ 


501B 2651 


LD 


H,51H 


501D 68 


LD 


L,B 



Form address of file name in dir 

Get the HIT index 

Isolate offset to file entry 

Add a 5 and move to L 

Gives addr. of file name 

in directory entry 

Save addr. of file name in dir 

Start of DCB address to DE 

Prepare to rebuild DCB for OPEN call 

Max. no. of chars in file name 

Get a char, from file name 

Is it a blank 

Jump if yes. File name copied 

Move char from directory to DCB 

Bump directory addr. 

Bump DCB addr. 

Loop till name copied to DCB 

Restore addr of name in directory 

Then add 8 to it to 

Get addr of extension in directory 

HL = Addr. of file ext. 

Fetch a character of extension 

Is it a blank 

Jump if yes, no extension 

Else, save a "/" 

After file name in DCB 

Bump to pos. of 1st ext. char in DCB 

Max. no. of chars in extension 

Fetch a character of extension 

Is it a blank 

Go if so. End of ext. found 

Else save extension character 

Bump directory address 

Bump DCB address 

Loop till ext. copied to DCB 

Next, save an ASCII : 

in DCB, then 

Bump to next addr. 

Load ASCII drive number 

And save it in DCB 

Bump to first char after drive no. 

And store a 

terminator 

Signal good status 

Return to caller 



Save caller's registers 

Error exit if file not open. 

Get permission flags 

Isolate them 

Test if KILL permission 

Jump if KILL permission. Else 

ret illegal file access code 

Set error status flags 

And return to caller 

C = Unit no, 

B = HIT index number 

Read HIT sector into 5100 

Exit if error during read 

Read GAT into 4D00 

Exit if error 

Read directory entry into 4200. 

HL = addr. of entry 

Exit if error during read 

Offset to start of GAP'S 

Combine with directory entry 

address 

Form GAP address for dir. entry 

in HL 

Fetch track address from GAP 

Bump pointer to granule count 

Fetch number of assigned 

granules 

Prepare to test for end of GAP's 

Test if end of GAP's, or 

overflow pointer reached 

Jump if yes 

Else bump to next GAP entry 

Deallocate GAP 

Loop till end of GAP's reached, 

or overflow pointer found 

Get LSB of directory entry addr. 

in sector buffer 

Isolate starting address of 

entry 

And form beginning address in HL 

Clear access flags, flag entry 

as available 

Save HIT index/unit number 

Save GAP flags (FF or FE) 

Start of directory entry address 

To DE 

Bump to 2nd byte of directory 

entry address 

Number of bytes to move 

Zero directory entry in sector 

buffer 

Restore GAP terminator flag 

Restore HIT index/unit number 

Write drectory sector with 

zeroed entry 

Exit if error during write 

Load MSB of HIT buffer address, 

then load HIT index 

To form address of byte 

containing hash code for 

file 
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5821 7D 
5022 FEFE 
5024 28C9 

5026 CD034B 

5029 C0 
502A CD7750 

502D C0 
502E DDE5 

5030 El 

5031 0620 

5033 AF 

5034 77 

5035 23 

5036 10FC 
5038 C9 



LD 
CP 
JR 



RET 
CALL 

RET 

PUSH 

POP 

LD 

XOR 

LD 

INC 

DJNZ 

RET 



(HL) ,00H 

D,D 

A,E 

0FEH 

Z , 4FEFH 



N2 
5077H 



IX 

HL 

B,20H 

A 

(HL) ,A 

HL 

5034H 



Remove hash code from HIT sector 

buffer 

B = sector # of possible 

overflow entry 

Fetch GAP terminating flag 

Test for overfow entry 

Jump if overflow entry. Go read 

and process 

Else, write updated GAT sector 

from buffer at 4D00 

Exit if error during write 

Write updated HIT sector from 

buffer at 5200 

Exit if error during write 

Copy DCB address 

to HL 

Number of bytes to clear in DCB 

Load a zero into A-reg. 

Clear a byte in DCB 

Bump to next address in DCB 

Loop till DCB cleared 

Return to KILL caller 



GAP Deallocation 



503A C5 
503B 6B 

503C 264D 

503E 7A 

503F E61F 

5041 4F 

5042 0C 

5043 AA 



5044 07 

5045 07 

5046 07 

5047 F5 

5046 46 

5049 CD5B50 

504C 70 
504D Fl 

504E 3C 
504F FE02 

5051 2002 

5053 AF 

5054 2C 

5055 0D 

5056 20EF 

5058 CI 

5059 El 



PUSH 
PUSH 



INC 
XOR 



RLCA 
RLCA 
RLCA 
PUSH 

LD 



LD 
POP 



INC 
CP 



XOR 

INC 
DEC 
JR 

POP 
POP 



HL Save current directory address 

GAP deallocation 
BC Save HIT index/unit number 

L,E Track number to L. Will become 

index into GAT 
H,4DH Form address for starting track 

number in HL 
A,D Get number of consecutively 

assigned granules 
1FH Isolate granuule count -1 
C,A Save in C 

C And compute true granule count 

D Isolate starting granule number 

flag (0 = sect. 0, 

1 = sect. 5) 

And reposition 

Into 

Lower bit of A-reg. 
AF Save it as the initial bit 

counter for each GAT entry 
B, (HL) Fetch current GAT entry for 

current track number 
505BH Release a granule (make it 

available) for current GAT entry 
(HL) ,B Restore updated GAT entry 
AF Get bit counter for current GAT 

entry 
A Bump it and 

02H Test if Max. # granules released 

for this entry 
NZ,5055H Jump more granules to be 

released for this GAT entry 
A Else, reset bit counter to zero 

L Bump to GAT entry for next track 

C Count 1 granule released 

NZ,5047H Jump if more granules to be 

released 
BC Restore HIT index, unit number 

HL Restore current directory GAP 

address 

Return to caller 



Clear bit number specified by A, in byte in B 



505D 07 
505E 07 
505F 07 
5060 F680 

5062 326650 
5065 CB80 



RLCA 
RLCA 
RLCA 



RES 
RET 



07 H 



(5066H) ,A 
00H,B 



Isolate bit number to be reset. 

Will be or 1 

And 

Position for 

Placement into RES instr. 

Combine RES op code with bit to 

be cleared 

Save synthesized RES instr. 

And execute it. Clear bit 

associated with granule 

Return to caller 



« Read HIT Sector 

5068 CD554B CALL 4B55H Get directory track number into D 

506B 1E01 LD E,01H Specify sector # (HIT sector) 

506D 210051 LD HL,5100H HL = Buffer address of 5100 

5070 CD354B CALL 4B35H Read GAT sector into 5100 

5073 C8 RET Z Return if no error 

5074 3E16 LD A,16H Signal HIT read error 

5076 C9 RET Return to caller 
* 

* Write HIT Sector 

5077 CD554B CALL 4B55H Get directory track number into D 
507A 1E01 LD E,01H Specify sector #3 (HIT sector) 
507C 210051 LD HL,5100H HL = Buffer address o£ 5100 

507F CDEF46 CALL 46EFH Write HIT sector 

5082 C8 RET z Return if no error 

5083 3E17 LD A,17H Else, signal HIT write error 
5085 C9 RET and return to caller 
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SYS4/SYS 



********* 



****************** 



SYS4/SYS 
Error Message Processor 



************* 



4E00 E3 


EX 


(SP) ,HL 


4E01 226E4E 


LD 


(4E6EH) ,HL 


4E04 El 


POP 


HL 


4E05 Fl 


POP 


AF 


4E06 E5 


PUSH 


HL 


4E07 D5 


PUSH 


DE 


4E08 C5 


PUSH 


BC 


4E09 F5 


PUSH 


AF 


4E0A 47 


LD 


B,A 


4E0B EC3F 


AND 


3FH 


■<E0D 4F 


LD 


C,A 


4E0E CB70 


BIT 


06H,B 


4E10 0600 


LD 


B, 00H 


4E12 2016 


JK 


NZ,4E2AH 


I 




Hex to ASCII Co 


4E14 1E30 


LD 


E,30H 


4E16 D60A 


SUB 


0AH 


4E18 3803 


JR 


C,4E1DH 


4E1A 1C 


INC 


E 


4E1B 18F9 


JR 


4E16H 


4E1D C63A 


ADD 


A,3AH 


4E1F 57 


LD 


D,A 


4E20 ED53424F 


LD 


(4F42H) ,DE 


4E24 21364F 


LD 


HL,4F36H 


4E27 CD6744 


CALL 


4467H 


4E2A 21844F 


LD 


HL,4F84H 


4E2D 09 


ADD 


HL, BC 


4E2E 6E 


LD 


L, (HL) 


4E2F 2651 


LD 


H,51H 


4E31 7E 


LD 


A, (HL) 


4E32 E63F 


AND 


3FH 


4E34 87 


ADD 


A, A 


4E35 E5 


PUSH 


HL 


4E36 4F 


LD 


C,A 


4E37 0600 


LD 


B,00H 


4E39 21C24F 


LD 


HL.4FC2H 


4E3C 09 


ADD 


HL.BC 


4E3D 5E 


LD 


E, (HL) 


4E3E 23 


INC 


HL 


4E3F 56 


LD 


D, (HL) 


4E40 23 


INC 


HL 


4E41 7E 


LD 


A, (HL) 


4E42 23 


INC 


HL 


4E43 66 


LD 


H,(HL) 


4E44 6F 


LD 


L,A 


4E45 B7 


OR 


A 


4E46 ED52 


SBC 


HL,DE 


4E48 45 


LD 


B,L 


4E49 EB 


EX 


DE,HL 


4E4A 7E 


LD 


A,(HL) 


4E4B 23 


INC 


HL 


4E4C CD3300 


CALL 


0033H 


4E4F 10F9 


DJNZ 


4E4AH 


4E51 3E20 


LD 


A,20H 


4E53 CD3300 


CALL 


0033H 


4E56 El 


POP 


HL 


4E57 7E 


LD 


A, (HL) 


4E58 23 


INC 


HL 


4E59 07 


RLCA 




4E5A 30D5 


JR 


NC,4E31H 


4E5C Fl 


POP 


AF 


4E5D F5 


PUSH 


AF 


4E5E CB77 


BIT 


06H,A 


4E60 CC734E 


CALL 


Z,4E73H 


4E63 3E0D 


LD 


A,0DH 


4E65 CD3300 


CALL 


0033H 


4E68 Fl 


POP 


AF 


4E69 CI 


POP 


BC 


4E6A Dl 


POP 


DE 


4E6B El 


POP 


HL 


4E6C B7 


OR 


A 


4E6D FA0000 


JP 


M,0000H 


4E70 C33040 
* 


JP 


4030H 


* 

4E73 E5 


PUSH 


HL 


4E74 21474F 


LD 


HL,4F47H 


4E77 CD6744 


CALL 


4467H 


4E7A El 


POP 


HL 


4E7B DDE5 


PUSH 


IX 


4E7D DD2A0A43 


LD 


IX, (430AH) 


4E81 2B 


DEC 


HL 


4E82 CB76 


BIT 


06H,(HL) 


4E84 201A 


JR 


NZ.4EA0H 


4E86 DD4E06 


LD 


C,(IX+06H) 


4E89 DD4607 


LD 


B, (IX+07H) 


4E8C DDCB007E 


BIT 


07H,(IX+00H) 


4E90 2032 


JR 


NZ,4EC4H 


4E92 DDE1 


POP 


IX 


4E94 ED43554F 


LD 


(4F55H) ,BC 


4E98 214B4F 


LD 


HL.4F4BH 


4E9B CD6744 


CALL 


4467H 



Return addr to HL. HL to stack 

Return addr to exit instruction. 

Restore HL (clear stack) 

Restore error code 

Preserve HL 

DE 

BC 

And error code 

Save original error code 

Clear upper two bits 

C = cleared error code 

Test if ***ERRCOD=XX message flag set 

BC = error code {used as index 

Jump if ***ERRCOD msg flag off 



E = ASCII zero 

Subtract 10 from hex value 

Jump if done with conversion 

Bump ASCII value 

Loop till ASCII equivalent computed 

Make MSB of hex ASCII value positive 

for ASCII error code in DE 

Then save in ***ERRCOD=XX message 

Address of ***ERRCOD message 

Display msg. 

Addr of error code index list 

Add error code to get address of 

phrase indices for error 

L = LSB of phrase index address 

for error code 

H = MSB of phrase index address 

Load a word index 

Clear terminator/unused lists 

Index * 2 (list is addr by word 

Save current word index address 

C = index * 2 

BC = index * 2 

Origin -2 of word address list 

Add index * 2 for required phrase 

E = LSB of addr for required phrase 

Bump to address of MSB 

D = MSB of addr for required phrase 

Bump to LSB of addr for next phrase 

Fetch it 

Bump to MSB of addr for next phrase 

Fetch it 

HL = text addr for following phrase 

Clear carry 

Addr of next phrase (required phrase) 

Gives no, of chars in required phrase 

HL = text addr for required phrase 

Fetch a character from phrase 

Bump to next char in phrase 

Display phrase character 

Loop till all of phrase displayed 

Follow phrase 

with a space 

Restore phrase index address 

Refetch index 

Bump to the next index in case 

this is not the end 

Terminating bit to CARRY flag 

Jump if not end of phrase 

list. Process next phrase 

Restore error code 

Save error code 

Test if file error code 

Display file name if file error 

Else scroll one line 

by displaying a carriage return 

Restore error code in A, 

then restore BC 

DE 

and HL 

Set status flag for return 

Test for System or caller return 

Return to caller if requested 

Else return to system 



Save last phrase index address 

Address of *** 

Display closing *** 

Restore last phrase index addr 

Save current system DCB address 

Load DCB addr for file with error 

Position to terminating character 

in phrase index list 

Test if file nam3 in DCB 

Jump if file name in DCB 

C = drive number 

B = directory sector number 

Test if file OPEN 

If so, go read dir - copy name/ext 

Else, clear stack 

Save device code in DEVICE = xx msg 

Address of DEVICE = xx msg 

Display message 



4E9E 


1866 


JR 


4F06H 


4EA0 


DD7E00 


LD 


A,(IX+00H) 


4EA3 


FE2A 


CP 


2AH 


4EA5 


2008 


JR 


NZ,4EAFH 


4EA7 


DD4E01 


LD 


C, (IX+01H) 


4EAA 


DD4602 


LD 


B, (IX+02H) 


4EAD 


18E3 


JR 


4E92H 


4EAF 


DDE5 


PUSH 


IX 


4EB1 


El 


POP 


HL 


4EB2 


11604F 


LD 


DE,4F60H 


4EB5 


011800 


LD 


BC.0018H 


4 EBB 


7E 


LD 


A, (HL) 


4EB9 


FE03 


CP 


03H 


4 EBB 


283C 


JR 


Z,4EF9H 


4EBD 


23 


INC 


HL 


4EBE 


12 


LD 


(DE) ,A 


4EBF 


13 


INC 


DE 


4EC0 


10F6 


DJNZ 


4EB8H 


4EC2 


1835 


JR 


4EF9H 


4EC4 


CDC14A 


CALL 


4AC1H 


4EC7 


010500 


LD 


BC,0005H 


4ECA 


09 


ADD 


HL,BC 


4ECB 


11604F 


LD 


DE,4F60H 


4ECE 


0608 


LD 


B,08H 


4ED0 


7E 


LD 


A,(HL) 


4 EDI 


FE20 


CP 


20H 


4ED3 


2805 


JR 


Z.4EDAH 


4ED5 


2C 


INC 


L 


4ED6 


12 


LD 


(DE) ,A 


4ED7 


13 


INC 


DE 


4ED8 


10F6 


DJNZ 


4ED0H 


4 EDA 


3E2F 


LD 


A,2FH 


4EDC 


12 


LD 


(DE),A 


4EDD 


13 


INC 


DE 


4EDE 


48 


LD 


C,B 


4EDF 


0600 


LD 


B,00H 


4EE1 


09 


ADD 


HL.BC 


4EE2 


0603 


LD 


B,03H 


4EE4 


7E 


LD 


A, (HL) 


4EE5 


2C 


INC 


L 


4EE6 


FE20 


CP 


20H 


4EE8 


2804 


JR 


Z.4EEEH 


4EEA 


12 


LD 


(DE),A 


4EEB 


13 


INC 


DE 


4 EEC 


10F6 


DJNZ 


4EE4H 


4EEE 


EB 


EX 


DE,HL 


4EEF 


36 3A 


LD 


(HL) ,3AH 


4EF1 


23 


INC 


HL 


4EF2 


DD7E06 


LD 


A, (IX+06H) 


4EF5 


C630 


ADD 


A,30H 


4EF7 


77 


LD 


(HL) ,A 


4EF8 


23 


INC 


HL 


4EF9 


363E 


LD 


(HL) ,3EH 


4EFB 


23 


INC 


HL 


4EFC 


360D 


LD 


(HL) ,0DH 


4EFE 


DDE1 


POP 


IX 


4F00 


21594F 


LD 


HL,4F59H 


4F03 


CD6744 


CALL 


4467H 


4F06 


21704F 


LD 


HL,4F70H 


4F09 


CD6744 


CALL 


4467H 


4F0C 


2A0C43 


LD 


HL, (430CH) 


4F0F 


2B 


DEC 


HL 


4F10 


2B 


DEC 


HL 


4F11 


2B 


DEC 


HL 


4F12 


CD1B4F 


CALL 


4F1BH 


4F15 


21824F 


LD 


HI.,4F82H 


4F18 


C36744 


JP 


4467H 


4F1B 


7C 


LD 


A,H 


4F1C 


CD204F 


CALL 


4F20H 


4F1F 


7D 


LD 


A,L 


4F20 


F5 


PUSH 


AF 


4F21 


IF 


RRA 




4F22 


IF 


RRA 




4F23 


IF 


RRA 




4F24 


IF 


RRA 




4F25 


CD294F 


CALL 


4F29H 


4F28 


Fl 


POP 


AF 


4F29 


E60F 


AND 


0FH 


4F2B 


C630 


ADD 


A,30H 


4F2D 


FE3A 


CP 


3AH 


4F2F 


3802 


JR 


C,4F33H 


4F31 


C607 


ADD 


A,07H 


4F33 


C33300 


JP 


0033H 


4F36 




DEFB 


0AH 


4F37 




DEFM 


'*** ERRCOD 


4F46 




DEFB 


03H 


4F47 




DEFM 


■ *** ■ 


4F4A 




DEFB 


0DH 


4F4B 




DEFM 


'<DEVICE = 


4F58 




DEFB 


0DH 


4F59 




DEFM 


'<FILE =NNN 


4F6F 




DEFB 


0DH 


4F70 




DEFM 


1 REFERENCED 


4F80 




DEFB 


27 H 


4F81 




DEFB 


03H 


4F82 




DEFB 


27 H 


4F83 




DEFB 


0DH 



Go display REFERENCED AT message 

and return to caller 

Test for special DCB code 

First character must be * 

Jump if not. Name is in DCB 

Special DCB 

Bytes 2-3 contain device code 

Go print DEVICE=XX msg 

Save DCB address belonging to 

file with error 

HL = DCB address with file name 

Address of file name in 

<file = NNN...> msg 

Max number of chars in name/ext :D 

Fetch a char from file name 

Test for end of list 

Jump if end of list 

Else bump to next char in list 

Move last char to <file = NNN...> msg 

Bump to next position in file message 

Loop till f ile/ext:drive copied 

into <file = ...> message 

Go display <file = ...> message 

Read dir entry for file with error 

Add offset to get address 

of file name in directory 

Addr of file name in <file = ...> msg 

Max. no. chars to copy from dir 

Get file name char from directory 

Is it blank (end of name reached} 

Jump if end of name 

Bump to next char if not 

Save this char in <file = ,..> msg 

Bump to next pos in <file = ...> msg 

Loop till 8 characters copied 

or end of name found 

Then load an ASCII "/" 

Put after file name in <file = ...> msg 

Pos to addr of ext in <,file> msg 

C = number of characters 

remaining in name field 

So BC can be added to HL 

compute beginning addr of ext 

Max no. chars in extension 



.*_, Fetch a char from ext 
Bump to next char in ext 
If char blank, we're done 
Jump if end of ext found 
Move ext char to message 
Bump message store address 
Loop till extension copied 

HL = addr of drive no. in <file = ... 

terminate filename/ext 

with a : 

Then fetch drive from DCB 

and convert it to ASCII 

Save in <file = ...> message 

Bump to pos after drive # in msg 

Save closing > 

Bump past > in msg 

Terminate with carriage return 

Restore current DCB address 

Address of <file = XXX/XX:d> msg 

Display message 

Address of REFERENCED AT message 

Display message 

HL = sector buffer address 

associated with file 

Decrement buffer 

Address 

By three 

Convert addr to ASCII and display 

Address of ' string (terminate 

buffer address display) 

Display ending ' , ret to caller 

Convert MSB of buffer addr first 

Call routine to convert and 

display value in A reg 

Now convert/display LSB of buff addr 

Save value to be converted 

Right shift hex 

value four times 

This is the same 

as dividing it by 16 

Then convert binary hex value 

to ASCII and display 

Restore original value 

Isolate binary field to convert 

Gives ASCII equivalent of binary 

Test if value exceeds 9 

Jump if not, value less than 10 

Add 7 to get A-F ASCII value 

Display char. Return to caller 

Line feed 

XX , ' 

Message terminator 

Message terminator 
X> 

Message terminator 
MNN/EEE:d> 

Message terminator 
T X' 

Hex valve for 

Message terminator 

Hex valve for 

Message terminator 
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Error Number Message Addresses 



4F84 


DEFB 


5BH 


00, 515B 


4F85 


DEFB 


5DH 


01, 515d 


4F86 


DEFB 


62H 


02, 5162 


4F87 


DEFB 


66H 


03, 5166 


4F88 


DEFB 


6AH 


04, 516A 


4F89 


DEFB 


6 EH 


05, 516E 


4F8A 


DEFB 


74H 


06, 5174 


4F8B 


DEFB 


79H 


07, 5179 


4F8C 


DEFB 


7 EH 


08, 517E 


4F8D 


DEFB 


81 H 


09, 5181 


4F8E 


DEFB 


86H 


10, 5186 


4F8F 


DEFB 


8AH 


11, 518A 


4F90 


DEFB 


8EH 


12, 518E 


4F91 


DEFB 


92H 


13, 5192 


4F92 


DEFB 


98H 


14, 5198 


4F93 


DEFB 


9DH 


15, 519D 


4F94 


DEFB 


A0H 


16, 51A0 


4F95 


DEFB 


A4H 


17, 51A4 


4F96 


DEFB 


A7H 


18, 51A7 


4F97 


DEFB 


AAH 


19, 51AA 


4F98 


DEFB 


ADH 


20, 51AD 


4F99 


DEFB 


B0H 


21, 51B0 


4F9A 


DEFB 


B3H 


22, 51B3 


4F9B 


DEFB 


66 H 


23, 51B6 


4F9C 


DEFB 


B9H 


24, 51B9 


4F9D 


DEFB 


BDH 


25, 51BD 


4F9E 


DEFB 


C0H 


26, 51C0 


4F9F 


DEFB 


C3H 


27, 51C3 


4FA0 


DEFB 


C6H 


28, 51C6 


4FA1 


DEFB 


CAH 


29, 51CA 


4FA2 


DEFB 


CFH 


30, 51CF 


4FA3 


DEFB 


D3H 


31, 51D3 


4FA4 


DEFB 


D6H 


32, 51D6 


4FA5 


DEFB 


D9H 


33, 51D9 


4FA6 


DEFB 


DDH 


34, 51DD 


4FA7 


DEFB 


E1H 


35, 51E1 


4FA8 


DEFB 


E3H 


36, 51E3 


4FA9 


DEFB 


E8H 


37, 51E8 


4FAA 


DEFB 


EDH 


38, 51ED 


4FA1 


DEFB 


F0H 


39, 51F0 


4FA2 


DEFB 


F0H 


30, 51F0 


4FA3 


DEFB 


F0H 


30, 51F0 


4FA4 


DEFB 


F0H 


30, 51F0 


4FA5 


DEFB 


F0H 


30, 51F0 


4FA6 


DEFB 


F0H 


30, 51F0 


4FA7 


DEFB 


f0H 


30, 51F0 


4FA8 


DEFB 


F0H 


30, 51F0 


4FA9 


DEFB 


F0H 


30, 51F0 


4FaA 


DEFB 


F0H 


30, 51F0 


4FAB 


DEFB 


F0H 


30, 51F0 


4FAC 


DEFB 


F0H 


30, 51F0 


4FAD 


DEFB 


F0H 


30, 51F0 


4FAE 


DEFB 


F0H 


30, 51F0 


4FAF 


DEFB 


F0H 


30, 51F0 


4FB0 


DEFB 


F0H 


30, 51F0 


4FB1 


DEFB 


F0H 


30, 51F0 


4BB2 


DEFB 


F0H 


30, 51F0 


4FB3 


DEFB 


F0H 


30, 51F0 


4FB4 


DEFB 


F0H 


30, 51F0 


4FB5 


DEFB 


F0H 


30, 51F0 


4FB6 


DEFB 


F0H 


30, 51F0 


4FB7 


DEFB 


F0H 


30, 51F0 


4FB8 


DEFB 


F0H 


30, 51F0 


4FB9 


DEFB 


F0H 


30, 51F0 


4FBA 


DEFB 


F0H 


30, 51F0 


4FBB 


DEFB 


F0H 


30, 51F0 


4FBC 


DEFB 


F0H 


30, 51F0 


4FBD 


DEFB 


F0H 


30, 51F0 


4FBE 


DEFB 


F0H 


30, 51F0 


4FBF 


DEFB 


F0H 


30, 51F0 


4FC0 


DEFB 


F0H 


30, 51F0 


4FC1 


DEFB 


F0H 


30, 51F0 


4FC2 


DEFB 


F0H 


30, 51F0 


4FC3 


DEFB 


F0H 


30, 51F0 


* 


Pnrase 


Address List 




* 




Address 


(Word) 


4FC4 


DEFW 


5030H 


(NO) 


4FC6 


DEFW 


5032H 


(ERROR) 


4FC8 


DEFW 


5037H 


(FORMAT) 


4FCA 


DEFW 


503DH 


(PARITY) 


4FCC 


DEFW 


5043H 


(DURING) 


4FCE 


DEFW 


5049H 


(HEADER) 


4FD0 


DEFW 


504FH 


(DATA) 


4FD2 


DEFW 


5053H 


(SEEK) 


4FD4 


DEFW 


5057H 


(ReAD) ) 


4FD6 


DEFW 


505BH 


(WRITE) 


4FD8 


DEFW 


5060H 


(LOST) 


4 FDA 


DEFW 


5064H 


(NOT) 


4FDC 


DEFW 


5067H 


(ATTEMPTED TO) 


4FDE 


DEFW 


5073H 


(LOCKED/DELETED) 


4FE0 


DEFW 


5081H 


(SYSTEM) 


4FE2 


DEFW 


5087H 


(DIRECTORY) 


4FE4 


DEFW 


5090H 


(MEMORY) 


4FE6 


DEFW 


5096H 


(ON) 


4FE8 


DEFW 


5098HH 


(DISK) 


4FEA 


DEFW 


509CH 


(DISKETTE) 


4FEC 


DEFW 


50A4H 


(FAULT) 


4FEE 


DEFW 


50A9H 


( PROTECTED) 


4FF0 


DEFW 


50B2H 


(ILLEGAL) 


4FF2 


DEFW 


50B9H 


(LOGICAL) 


4FF4 


DEFW 


50C0H 


(NUMBER) 


4FF6 


DEFW 


50C6H 


(FILE) 


4FF8 


DEFW 


50CAH 


(RECORD) 


4FFA 


DEFW 


50D0H 


(END) 



4FFC 


DEFW 


50D3H 


(OF) 




4FFE 


DEFW 


50D5H 


(OUT) 




5000 


DEFW 


50D8H 


(RANGE) 




5002 


DEFW 


50DDH 


(ENCOUNTERED) 


5004 


DEFW 


50E8H 


(CODE) 




5006 


DeFW 


50ECH 


(GAT) 




5008 


DEFW 


50EFH 


(HIT) 




500A 


DEFW 


50F2H 


(OVERLAY 




500C 


DEFW 


50F9H 


(UNKNOWN 




500E 


DEFW 


5100H 


(LOAD) 




5010 


DEFW 


5104H 


(SPACE) 




5012 


DEFW 


5109H 


(ONLY) 




5014 


DEFW 


510DH 


(NAME) 




5016 


DEFW 


5111H 


(DEVICE) 




5018 


DEFW 


5117H 


(FORMAT) 




501A 


DEFW 


511DH 


(FOUND) 




501C 


DEFW 


5122H 


(IN) 




501E 


DEFW 


5124H 


(ACCESS) 




5020 


DEFW 


512AH 


(FULL) 




5022 


DEFW 


512EH 


(DRIVE) 




5024 


DEFW 


5133H 


(DENIED) 




5026 


DEFW 


5139H 


(PROGRAM 




5028 


DEFW 


5140H 


(AVAILABLE) 


502A 


DEFW 


5149H 


(-CAN'T EXTEND) 


502C 


DEFW 


5157H 


(OPEN) 




50 2E 


DEFW 


515BH 


(WRITE) 




* 


Phrase 


List 






5030 


DEFM 


'NO 1 




(01) 


5032 


DEFM 


'ERROR' 




(02) 


5037 


DEFM 


'FORMAT' 




(03) 


503D 


DEFM 


' PARITY ' 




(04) 


5043 


DEFM 


1 DURING ' 




(05) 


5049 


DEFM 


'HEADER' 




(06) 


504F 


DEFM 


'DATA' 




(07) 


5053 


DEFM 


1 SEEK ' 




(08) 


5057 


DEFM 


'READ' 




(09) 


505B 


DEFM 


'WRITE' 




(10) 


5060 


DEFM 


'LOST' 




(11) 


5064 


DEFM 


'NOT' 




(12) 


5067 


DEFM 


'ATTEMPTED TO' 


(13) 


5073 


DEFM 


'LOCKED' 




(14) 


5079 


DEFM 


'/DELETED' 




(15) 


5081 


DEFM 


'SYSTEM' 




(16) 


5087 


DEFM 


'DIRECTORY' 




(17) 


5090 


DEFM 


'MEMORY' 




(18) 


5096 


DEFM 


'ON' 






5098 


DEFM 


'DISK' 




(19) 


509C 


DEFM 


'DISKETTE' 




(20) 


50A4 


DEFM 


'FAULT' 




(21) 


50A9 


DEFM 


'PROTECTED' 




(22) 


50B2 


DEFM 


'ILLEGAL' 




(23) 


50B9 


DEFM 


'LOGICAL' 




(24) 


50C0 


DEFM 


'NUMBER' 




(25) 


50C6 


DEFM 


'FILE' 




(26) 


50CA 


DEFM 


'RECORD' 




(27) 


50D0 


DEFM 


'END' 




(28) 


50D3 


DEFM 


'OF' 




(29) 


50D5 


DEFM 


'OUT' 




(30) 


50D8 


DEFM 


'RANGE' 




(31) 


50DD 


DEFM 


1 ENCOUNTERED 




(32) 


50E8 


DEFM 


'CODE' 




(33) 


50EC 


DEFM 


'GAT' 




(34) 


50EF 


DEFM 


'HIT' 




(35) 


50F2 


DEFM 


'OVERLAY' 




(36) 


50F9 


DEFM 


' UNKNOWN ' 




(37) 


50FF 


DEFM 


'LOAD' 




(38) 


5104 


DEFM 


' SPACE ' 




(39) 


5109 


DEFM 


'ONLY' 




(40) 


51 0D 


DEFM 


'NAME' 




(41) 


5111 


DEFM 


'DEVICE' 




(42) 


5117 


DEFM 


'FORMAT' 




(43) 


511D 


DEFM 


'FOUND' 




(44) 


5122 


DEFM 


'IN' 




(45) 


5124 


DEFM 


'ACCESS' 




(46) 


51 2A 


DEFM 


'FULL' 




(47) 


512E 


DEFM 


'DRIVE' 




(48) 


5133 


DEFM 


'DENIED' 




(49) 


5139 


dEFM 


'PROGRAM' 




(50) 


5140 


DEFM 


'AVAILABLE' 




(51) 


5149 


DEFM 


'- CAN'T EXTENT' 


(52) 


5157 


DEFM 


'OPEN' 




(53) 


* 




Word Index List 




515B 


DEFB 


01H,82H,06H 


89H 


NO ERROR 


515E 


DEFB 


04H,02H,05H 


06H,89H 


PARITY ERROR DURING 
HEADER READ 


5162 


DEFB 


08H,02H,05H 


89H 


SEEK ERROR DURING 
READ 


5166 


DEFB 


0BH,07H,05H 


89H 


LOST DATA DURING 
READ 


516A 


DEFB 


04H,02H,05H 


89H 


PARITY ERROR DURING 
READ 


516E 


DEFB 


07H,1BH,0CH 


2CH,05H,89H DATA RECORD NOT 










FOUND 










DURING READ 


5174 


DEFB 


0DH,09H,0EH 


07H,9BH 


ATTEMPTED TO READ 
LOCKED RECORD 


517 9 


DEFB 


0DH,09H,0FH 


07H,9BH 


ATTEMPTED TO READ 
DELETED RECORD 


517E 


DEFB 


2AH,0CH,F3H 




DEVICE NOT AVAILABLE 


5181 


DEFB 


04H,02H,05H 


06H,8AH 


PARITY ERROR DURING 
HEADER WRITE 


5184 


DEFB 


08H,02H,05H 


8AH 


SEEK ERROR DURING 
WRITE 


518A 


DEFB 


0BH,07H,05H 


BAH 


LOST DATA DURING 
WRITE 
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518E 


DEFB 


04H,02H,05H,8AH 


5192 


DEFB 


07H,1BH,0CH,2CH,05H,8A 


5198 


DEFB 


0AH,15H,12H,13H,B0H 


519D 


DEFB 


0AH,16H,94H 


51A0 


DEFB 


17H,18H,1AH,99H 


51A4 


DEFB 


10H,09H,82H 


51A7 


DEFB 


10H,0AB,82H 


51AA 


DEFB 


17H,1AH,E9H 


51AD 


DEFB 


22H,09H,82H 


51 B0 


DEFB 


22H,0AH,82H 


51 B3 


DEFB 


23H,09H,82H 


51B6 


DEFB 


23H,0AH,82H 


51B9 


DEFB 


1AH,0CH,2DH,D0H 


51 BD 


DEFB 


1AH,2EH,F1H 


51C0 


DEFB 


10H,27H,EFH 


51C3 


DEFB 


13H,27H,AFH 


51C6 


DEFB 


1CH,1DH,1AH,A0H 



51D6 
51D9 



51E1 
51E4 



51ED 
51F0 



DEFB 
DEFB 



DEFB 
DEFB 



DEFB 
DEFB 



1B,19H,1EH,1DH,9FH 
10H,2FH,34H,9AH 



17H,30H,D9H 
01H,2AH,27H,F3H 



26H,1AH,2BH,82H 



11H,95H 
0DH,26H,09H,28H,91H 



17H,2EH,0DH,16H,9AH 



1AH,0CH,F5H 
25H,02H,A1H 



PARITY ERROR DURING 

WRITE 

DATA RECORD NOT 

FOUND 

DURING WRITE 

WRITE FAULT MEMORY 

DISK DRIVE 

WRITE PROTECTED 

DISKETTE 

ILLEGAL LOGICAL FILE 

NUMBER 

SYSTEM READ ERROR 

SYSTEM WRITE ERROR 

ILLEGAL FILE NAME 

GAT READ ERROR 

GAT WRITE ERROR 

HIT READ ERROR 

HIT WRITE ERROR 

FILE NOT IN SYSTEM 

FILE ACCESS DENIED 

SYSTEM SPACE FULL 

DISK SPACE FULL 

END OF FILE 

ENCOUNTERED 

RECORD NUMBER OUT OF 

RANGE 

SYSTEM FULL CAN'T 

EXTEND FILE 

ILLEGAL DRIVE NUMBER 

NO DEVICE SPACE 

AVAILABLE 

LOAD FILE FORMAT 

ERROR 

DIRECTORY FAULT 

ATTEMPTED TO READ 

DIRECTORY 

ILLEGAL ACCESS 

ATTEMPTED TO 

PROTECTED FILE 

FILE NOT OPEN 

UNKNOWN ERROR CODE 
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4 EBB 


Fl 


POP 


AF 


4E01 


Fl 


POP 


AF 


4E02 


F5 


PUSH 


AF 


4E03 


FDE5 


PUSH 


IY 


4E05 


DDE5 


PUSH 


IX 


• 




Save 


Context of Al 


4E07 


08 


EX 


AF.AF' 


4E08 


D9 


EXX 




4E09 


E5 


PUSH 


HL 


4E0A 


D5 


PUSH 


DE 


4E0B 


C5 


PUSH 


BC 


4E0C 


F5 


PUSH 


AF 


4E0D 


08 


EX 


AF,AF' 


4E0E 


D9 


EXX 




4E0F 


E5 


PUSH 


HL 


4E10 


D5 


PUSH 


DE 


4E11 


C5 


PUSH 


BC 


4E12 


F5 


PUSH 


AF 


4E13 


210000 


LD 


HL,0000H 


4E16 


39 


ADD 


HL,SP 


4E17 


116540 


LD 


DE,4065H 


4E1A 


011800 


LD 


BC,0018H 


4E1D 


EDB0 


LDIR 




4 Elf 


227940 


LD 


(407 9H),HL 


4E22 


F9 


LD 


SP,HL 


4E23 


2A7B40 


LD 


HL, (407BH) 


4E26 


2B 


DEC 


HL 


4E27 


7E 


LD 


A, (HL) 


4E28 


FEF7 


CP 


0F7H 


4E2A 


2003 


JR 


NZ,4E2FH 


4E2C 


227 B40 


LD 


(407BH) ,HL 


4E2F 


215D40 


LD 


HL,405DH 



Clear unnec. PUSH, restore AF 
Then create a 'hole' for SP 
Will be filled in at 4E1F 
Save IX, no alternate 
Save IY, no alternate 



Switch to alternate 

Register set 

Save alternate HL 

Save alternatete DE 

Save alternate BC 

Save alternate AF 

Switch to primairy 

Register set 

Save main HL 

Save main DE 

Save main BC 

Save main AF 

Clear HL so we can load SP into HL 

HL points to start of saved context 

DEBUG context save area addr. 

Number of bytes in saved context 

Copy from stack to low mem. save area 

Save value of SP at time of trap 

Restore SP value at time of trap 

Addr of PC register +1 at trap time. 

Back-up to addr. of trap instr. 

to get continue addr. 

Fetch instr. that caused trap 

Was it a RST 30 (trap instr.) 

Jump if not, may have been entered 

because of BREAK key hit 

Yes, update PC reg. in context area 

Load trap address table 

Trap address table contains original contents of 
address where traps have been stored. Format of 
entries is as follows: 

XX LSB 
XX MSB 

XX Original value 

Restore Original Contents of Locations That Have Traps 

Number of entries in table. 
Zero A 

Unnecessary instruction 
Get LSB of possible trap addr (TA) 
Zero LSB of TA from list 
Bump to MSB of TA 
Fetch MSB of TA from list 
Zero MSB of TA 

Bump to original value of TA 
Combine LSB and MSB 
Of trap address 
Jump if no entry, else check 
for valid entry 
Fetch contents of trap addr. 
Is it a RST 30 (trap instruction) 
No, check next entry 
Yes, restore original instruction 
Fetch saved instruction 
and restore to location 
that contains trap instruction 
Bump to next entry in list 
_ Loop till all instr. restored 



Restore context table value to SP 

Display register values (x display) 

Addr. of next to last row of display 

Save as input line display area 

Get a char, of input 

Test for G 

Jump if G command (Go command) 

Return addr. for all other commands 

To the stack 

Test for S 

Jump if S command 

Not S, test for; 

Jump if semi-colon (increment 

memory display 1 page) 

Not ";" test for "-" 

Jump if dash (decrement memory 

display 1 page) 

Not dash, test for A 

Jump if A command (ASCII display) 

Not A, test for C 

Go if C cmd (Single step with calls) 

Not C, test for D 

Jump if D command (Dislay memory) 

Not D, test for H 

Jump if H cmd (Hexadecimal display) 

Not H, test for I and go if 

I command (Single step next instr) 

Not I, test for M (Enter 

memory modification mode) 



4E32 0602 


LD 


B,02H 


4E34 AF 


XOR 


A 


4E35 0E02 


LD 


C,02H 


4E37 5E 


LD 


E,(HL) 


4E38 77 


LD 


(HL) ,A 


4E39 23 


INC 


HL 


4E3A 56 


LD 


D, (HL) 


4E3B 77 


LD 


(HL) ,A 


4E3C 23 


IMC 


HL 


4E3D 7B 


LD 


A,E 


4E3E B2 


OR 


D 


4E3F 2807 


JR 


Z,4E48H 


4E41 1A 


LD 


A, (DE) 


4E42 FEF7 


CP 


0F7H 


4E44 2002 


JR 


NZ,4E48H 


4E46 7E 


LD 


A, (HL) 


4E47 12 


LD 


(DE) ,A 


4E48 23 


INC 


HL 


4E49 10E9 
* 


DJNZ 


4E34H 


* 


Input Command 


4E4B ED7B7940 


LD 


SP, (4079H) 


4E4F CDCF4E 


CALL 


4ECFH 


4E52 21C03F 


LD 


HL,3FC0H 


4E55 222040 


LD 


(4020H),HL 


4E58 CD8A51 


CALL 


518AH 


4E5B FE47 


CP 


47H 


4E5D CA804F 


JP 


Z,4F80H 


4E60 214B4E 


LD 


HL,4E4BH 


4E63 E5 


PUSH 


HL 


4E64 FE53 


CP 


53H 


4E66 2832 


JR 


Z,4E9AH 


4E68 FE3B 


CP 


3BH 


4E6A 2842 


JR 


Z,4EAEH 


4E6C FE2D 


CP 


2DH 


4E6E 2856 


JR 


Z,4EC6H 


4E70 FE41 


CP 


41H 


4E72 2857 


JR 


Z,4ECBH 


4E74 FE43 


CP 


43H 


4E76 280A 


JR 


Z,4E82H 


4E7 8 FE44 


CP 


44H 


4E7A 282C 


JR 


Z.4EA8H 


4E7C FE48 


CP 


48H 


4E7E 284B 


JR 


Z,4ECBH 


4E80 FE49 


CP 


49H 


4E82 CA5D50 


JP 


Z,505DH 


4E85 FE4D 


CP 


4DH 



4E87 CADB4F 
4E8A FE52 
4E8C CA1150 
4E8F FE55 
4E91 280B 
4E93 FE58 

4E95 2802 
4E97 EF 
4E98 C9 



JP Z,4FDBH Jump if M command 

CP 52H Not M, test for R (mod. reg. contents) 

JP Z,5011H Jump if R command 

CP 55H Not E, test for U (Dynamic display) 

JR Z,4E9EH Jump if U command (Dynamic display) 

CP 58H Not u, test for X (Return 

to primary display) 

JR Z,4E99H Jump if X command to 

RST 28H Process input char as overlay request 

RET Then return to 4E4B 



4E99 
4E99 
4E9D 



4E9E 
4EA1 
4EA2 
4EA3 
4EA6 



4EA8 
4EAB 
4EAC 



325E40 
C9 



CD2B00 

B7 

C0 

CDCF4E 

18F6 



CDA351 

C8 

1814 



X Command. Return to Primary Display. 
105EH) 



XOR 

LD 

RET 



Clear A-reg. 

Signal short main display) 

Return to 4E4B 



CALL 

OR 

RET 

CALL 

JR 



L Command. Dynamic Display 
002BH 



NZ 

4ECFH 

4E9EH 



-» -. Scan keyboard 

Set flags for active key test 
Ret to 4E4B if any key active 
Update display 
Loop till any key struck 



D Command. Dislay Memory. 

CALL 51A3H Get beginning addr. from keyboard 

RET z Rtn. to 4E4B if any error 

JR 4EC2H Else save starting display address 



; or - Command. Adjust Display Address (Forward or Backward) 



4EAE 
4EB1 
4EB4 
4EB7 
4EB8 
4EBA 
4EBC 
4EBD 
4EBE 
4EC0 
4EC1 
4EC2 
4EC5 



014000 

2A6340 

3A5E40 

B7 

2807 

0E00 

78 

B7 

2001 

04 

09 

226 340 

C9 



LD 
LD 
LD 



JR 

INC 

ADD 

LD 

RET 



BC,0040H Amt. to advance display (1 page) ; 

HL, (4063H) Current beginning display address 

A, (405EH) Get display mode flag 

A Set status for display mode 

Z,4EC1H Jump if short display 

C,00H Clear LSB of adjustment address 

A,B Fetch MSB of adjustment addr and 

A Set flags for MSB of adjustment addr 

NZ,4EC1H Jump if negative adjustment 

B Gives 100 {positive adjustment) 

HL,BC Compute new display address, then 

(4063H),HL save beginning display address 
Ret to 4E4B 



Command. Decrement Memory Display 



4EC6 01C0FF 
4EC9 18E6 



4ECB 325D40 
4ECE C9 



4ECF 3A5E40 
4ED2 B7 
4ED3 2070 
4ED5 3E1C 
4ED7 CD3300 
4EDA 216540 
4EDD E5 
4EDE 21544F 
4EE1 060C 
display 
4EE3 1805 



LD 
JR 



BC0FFC0H 
4EB1H 



Adj. value for previous page 
Go update display address 



A/H Command. 



(405DH) ,A 



Save display mode value 
Return to main display loop 



OR 

JR 

LD 

CALL 

LD 

PUSH 



Register display 

A, (405EH) Get display mode flag 

A Set status flags for display size 

NZ,4F45H Jump if not register display 

A,1CH Home cursor command 

0033H Give video driver home cursor command 

HL,4065H Address of saved register context 

HL Save context address 

HL,4F54H Address of register name text 

B, 0CH No. of register values to 

4EEAH Go display register context 



Display register values plus the contents of the 
addresses contained therein. 



4EE5 3E0D 


LD 


A,0DH 


4EE7 CD3300 


CALL 


0033H 


4EEA CDF651 


CALL 


51F6H 


4EED E3 


EX 


(SP),HL 


4EEE 5E 


LD 


E, (HL) 


4EEF 23 


INC 


HL 


4EF0 56 


LD 


D, (HL) 


4EF1 23 


INC 


HL 


4EF2 E5 


PUSH 


HL 


4EF3 EB 


EX 


DE.HL 


4EF4 3E3D 


LD 


A,3DH 


4EF6 CD3300 


CALL 


0033H 


4EF9 CDF251 


CALL 


51F2H 


4EFC 7C 


LD 


A,H 


4EFD CDEF51 


CALL 


51EFH 


4F00 7D 


LD 


A,L 


4F01 CDEF51 


CALL 


51EFH 


4F04 78 


LD 


A,B 


4F05 E60B 


AND 


0BH 


4F07 FE08 


CP 


08H 


4F09 201C 


JR 


NZ,4F27H . 


4F0B 4D 


LD 


C,L 


4F0C C5 


PUSH 


BC 


4F0D 217 84F 


LD 


HL,4F78H . 


4F10 0608 


LD 


B,08H 


4F12 CB21 


SLA 


C 


4F14 7E 


LD 


A, (HL) 


4F15 3802 


JR 


C,4F19H 


4F17 3E2D 


LD 


A, 2DH 


4F19 CD3300 


CALL 


0033H 



Use a carriage return to 

Skip to next line of display 

Display reg. name pointed to by HL 

Addr. of next reg. name 

to stack. Context addr. for 

Register to HL. Load LSB of 

reg. value from context list 

Bump to MSB of context list 

Fetch MSB of reg. value 

Bump to addr. of next reg. set 

Save addr. in context list 

Value for that reg. to HL 

ASCII value for = 

Display = 

Display a blank following = 

A = MSB of context value 

Convert to ASCII hex and display 

A = LSB of context value 

Convert to ASCII hex and display 

A = remaining number of register 

values to be displayed 

Test if index is exactly 8 

and if not, display status flags 

Jump if not displaying AF reg. 

Status flags to C register 

Save no. of reg. to be displayed 

Addr of ASCII chars for status bits 

B = no. of stat bits to examine 

Shift a status bit into CARRY 

Get letter for status condition 

Jump if status bit is on 

and display letter, else 

ASCII value for - 

Display a - (or letter if 

condition is true) 
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4F1C 23 
4F1D 10F3 

4F1F CI 
4F20 3EEC 
4F22 CD3300 
4F25 1803 
4F27 CD3151 

4F2A El 
4F2B E3 
4F2C 10B7 
4F2E El 
4F2F 2A6340 



INC 
DJNZ 

POP 

LD 

CALL 

JR 
CALL 

POP 



HL 
4F12H 

BC 

A,0ECH 

0033H 

4F2AH 

5131H 



BL 

EX (SP),HL 
DJNZ 4EE5H 
POP 



Bump to next letter in status list 
Loop till all status bits 
tested and displayed 
restore no. reg. left to display 
Comparison code for 44 blanks 
Display 44 blanks 
skip over => value display 
Display => followed by 
contents of addr. in reg. 
Restore addr next register set 
Put address on stack 
Loop till all registers displayed 
Clear stack 



LD HL, (4063H) Load beginning display address 



Display memory starting at address specified in HL. 



4F32 0604 
4F34 3EC7 
4F36 CD3300 
4F39 CDD451 

4F3C CDF251 
4F3F CD3151 

4F42 10F0 
4F44 C9 



4F45 21FF3B 
4F48 222040 
4F4B 2A6340 
4F4E 2E00 
4F50 0610 
4F52 18E0 



4F54 
4F57 
4F5A 
4F5D 
4F60 
4F63 
4F66 
4F69 
4F6C 
4F6F 
4F72 
4F75 
4F78 



LD B,04H 

LD A,0C7H 

CALL 0033H 

CALL 51D4H 



CALL 
CALL 



DJNZ 
RET 



51F2H 
5131H 



number of lines to display 

Comparison code for 7 blanks 

Display 7 blanks 

Display hex. for value in HL 

register (address) 

Display a blank 

Display 16 bytes 

starting at address 

Loop till (B) lines displayed 

Return to caller 



Start of Long Display 

LD HL,3BFFH Address -1 of video display area 

LD (4020H),HL to next char, address in video DCB 

LD HL, (4063H) Fetch display address and 

LD L,00H force it to a page boundary 

LD B,10H B = number of lines to display 

JR 4F34H Go display 16 lines of memory 

Text String for X-display 

DEFM 'AF ■ 

DEFM 'BC ' 

DEFM 'DE ' 

DEFM 'HL ' 

DEFM 'AF" 

DEFM 'BC" 

DEFM 'DE" 

DEFM ' HL " 

DEFM 'IX ' 

DEFM 'IY ' 

DEFM 'SP ' 

DEFM 'PC ' 

DEFM 'SZ1H1PNC 



4F80 
4F82 
4F85 
4F88 
4F8A 
4F8D 
4F8F 
4F92 
4F93 



0602 

116240 

CDA351 

2803 

227 B40 

380A 

CDA351 

F5 

C4CA4F 



4F96 Fl 
4F97 10F4 
4F99 210F40 
4F9C 221643 
4F9F 3EC3 
4FA1 321543 
4FA4 217A40 
4FA7 060B 



LD 

LD 

CALL 

JR 

LD 

JR 

CALL 

PUSH 

CALL 

POP 

DJNZ 

LD 

LD 

LD 

LD 



B, 02H 

DE.4062H 

51A3H 

Z.4F8DH 

(407BH) ,HL 

C.4F99H 

51A3H 

AF 

NZ,4FCAH 

AF 

4F8DH 

HL,400FH 

(4316H),HL 

A,0C3H 

(4315H),A 

HL,407AH 

B,0BH 



Max. no. trap addr to input 

Address of trap table 

Input a hex. value (1st address) 

Jump if illegal char, detected 

Save new PC (continue address) 

■Tump if no comma after 1st address 
Get a hex. value (2nd address) 
Preserve status 
Call routine to update trap 
table addr. if legit, value 
Restore status 1st addr read 

Loop till 2 addr or car. ret found 

Vector address to load DEBUG 

put in nucleus 

OP code for JUMP instruction 

put in nucleus 

Addr of context starting with SP 

No. of reg. context values to transfer 



Transfer register values from context area to current stack. 



4FA9 56 
4FAA 2B 
4FAB 5E 
4FAC 2B 
4FAD D5 
4FAE 10F9 



LD 

DEC 

LD 

DEC 

PUSH 

DJNZ 



D,(HL) 

HL 

E, (HL) 

HL 

DE 

4FA9H 



Fetch MSB of saved value 

Skip back to LSB 

Fetch LSB of saved register value 

skip to next register value 

Save value on current stack 

Loop till all values on stack 



Restore Register Context 



4FB0 
4FB1 
4FB2 
4FB3 
4FB4 
4FB5 
4FB6 
4FB7 
4FB8 
4FB9 
4FBA 
4FBB 
4FBC 
4FBE 
4FC0 
4FC1 
4FC2 
4FC5 
4FC6 
4FC9 



Fl 

CI 

Dl 

El 

08 

D9 

Fl 

CI 

Dl 

El 

08 

D9 

DDE1 

FDE1 

El 

F9 

2A7B40 

E5 

2A6B40 

C9 



POP 

POP 

POP 

POP 

EX 

EXX 

POP 

POP 

POP 

POP 

EX 

EXX 

POP 

POP 

POP 

LD 

LD 

PUSH 

LD 

RET 



AF 
BC 



AF 
BC 



AF,AF' 

IX 

IY 

HL 

SP.HL 

HL, (407BH) 

HL 

HL, (406BH) 



Restore AF main register 

Restore BC main register 

Restore DE main register 

Restore HL main register 

Switch to alternate AF register 

Switch to alternate register set 

Restore AF alternate register 

Restore BC alternate register 

Restore DE alternate register 

Restore HL alternate register 

Switch to main AF register 

Switch to main register 

Restore IX 

and IY 

and stack pointer at trap time 

update SP to value at time of trap 

Resumption address to HL 

So it can be copied to stack 

Restore HL main register set 

Return to inst. where trap occurred 



Stuff trap inst. at addr. in HL. Save original contents and 
addr. of contents at list addr. in DE. 



4FCA 7E 
4FCB 12 
4FCC IB 
4FCD 3EF7 
4FCF 77 
4FD0 BE 
4FD1 C22F4E 
4FD4 7C 
4FD5 12 
4FD6 IB 
4FF7 7D 
4FD8 12 
4FD9 IB 
4 FDA C9 



4FDB 
4FDE 
4FE1 
4FE4 
4FE5 
4FE6 
4FE9 
4FEC 
4FEF 
4FF2 
4FF5 
4FF6 
4FF9 
4FFC 
4FFD 



2A6040 

CDA351 

226040 

D8 

E5 

CDCF4E 

21403F 

222040 

2A6040 

CDD451 

E5 

21803F 

222040 

El 

CDD051 



5000 3E2D 
5002 CD3300 

5005 Dl 

5006 CDA351 
5009 EB 
500A 801 
500C 73 
500D D8 
500E 23 
500F 18D0 



5011 CD8A51 

5014 C8 

5015 4F 

5016 CD8A51 

5019 C8 
501A 57 
501B 1E20 
501D CD8A51 

5020 D8 

5021 2806 

5023 5F 

5024 CD8A51 

5027 C0 

5028 D8 

5029 21544F 
50 2C 06 0C 
502E 7E 
502F B9 

5030 2806 

5032 23 

5033 23 

5034 23 

5035 10F7 

5037 C9 

5038 23 

5039 7E 
503A BA 

503B 20F6 
503D 23 
503E 7E 
503F BB 

5040 20F2 
5042 3E18 

5044 90 

5045 90 

5046 4F 

5047 0600 

5049 216540 

504C 09 
504D E5 
504E 3E1E 

5050 CD3300 

5053 Dl 

5054 CDA351 

5057 C8 

5058 EB 

5059 73 
505A 23 
505B 72 
505C C9 



LD A, (HL) Get original conts. of trap location. 

LD (DE) ,A and save in trap table list 

DEC DE Back-up to next entry in trap list 

LD A,0F7H Load a trap inst. RST 30 

LD (HL) ,A Save at addr. in HL, then 

CP (HL) Make sure store worked 

JP NZ,4E2FH Jump if store inst. failed 

LD A,H MSB of trap addr. 

LD (DE) ,A To trap table 

DEC DE Backspace trap table addr. 

LD A,L LSB of trap addr. 

LD (DE),A To trap table 

DEC DE Back-up to 1st byte of next entry 

RET Return to caller 



LD HL, (4060H) Current modify address 

CALL 51A3H Get next modify address 

LD (4060H),HL Save previous, or new addr if entered 

RET C Ret to caller if carriage return 

PUSH HL Save addr of location to be modified 

CALL 4ECFH Update display in case it's changed 

LD HL,3F40H Screen addr for current mem contents 

LD (4020H) ,HL Save as cursor addr in video DCB 

LD HL, (4060H) Modify address to HL 

CALL 51D4H Display address to be modified 

PUSH HL Save addr of location to modify 

LD HL,3F80H Get addr to display modified mem and 

LD (4020H),HL save as new cursor addr in video DCB 

POP HL Restore addr of location to modify 

CALL 51D0H Display conts. of location to be 

modified. Follow it with a hyphen "-" 

LD A,2DH ASCII value for - 

CALL 0033H Display - 

POP DE Reload addr of location to modify 

CALL 51A3H Input new value for this location 

EX DE,HL Save it in DE. storage addr to HL 

JR Z,500DH If space input don't modify, 

LD (HL),E save new value 

RET C Exit if carriage return entered 

INC HL else bump to next address 

JR 4FE1H Go update display, get replacement val. 



CALL 518AH Get 1st letter of reg pair (next char) 

RET z Ret if comma, blank or C.R. (error) 

LD C,A Save 1st letter of register pair 

CALL 518AH Get 2nd letter of reg pair (next char) 

RET Z Ret if comma, blank or C.R. (error) 

LD D,A Save 2nd letter of register pair 

LD E,20H Default RP terminator. Use for comma 

CALL 518AH Get char, after register pair. 

Should be blank or "," 

RET c Ret if control. Error if not blank 

JR Z,5029H Go if comma/blank (legal separator) 

LD E,A Save actual char. Could be ' 

CALL 518AH Get next char. Must be comma/blank 

RET NZ Exit if 

ret C neither. Ignore illegal command 

LD HL,4F54H Address of register pair table 

LD B, 0CH Number of pairs in table. (12) 

LD A, (HL) ,^_. Get first char, of register pair 

CP C ,\ Compare to first char. 

. L of pair entered 

JR Z,5038H . | If so, go test 2nd char 

INC HL . Else skip over 2nd 

INC HL , | .and 3rd char to 1st 

INC HL . ^_L . -, char of next entry 

DJNZ 502EH . J Loop till all entries checked 

ret . Ignore cmd if no match in list 

INC HL .** I Bump to 2nd char of RP name 

LD A, (HL) . Get 2nd char in RP name list 

CP D . Compare to 2nd char. 

. 1 of name entered 

JR NZ,5033H . Go if no match. Scan rest of list 

INC HL . Bump to 3rd char in RP name list 

LD A, (HL) . Get it. will be blank or quote 

CP E . Compare to value entered 

JR NZ,5034H bo if no match (input error) 

LD A,18H 2 times Max no. of entries in RP list 

SUB B Minus offset to 

SUB B matching entry gives 

LD C,A byte offset into 

LD B, 00H saved register pair area 

LD HL,4065H Origin of save register pair 

values in low memory 

ADD HL,BC Compute addr of RP to be modified 

PUSH HL Save addr of RP to be altered 

LD A,1EH Code to erase to end of line 

CALL 0033H Blank remainder of line 

POP DE DE = address of RP to change 

CALL 51A3H Put value for register pair in DE 

ret z Exit if illegal character entered 

EX DE,HL value to DE. Address to HL 

LD (HL),E Save LSB of new register value 

INC HL Bump to next byte 

LD (HL) ,D Save MSB of new register value 

RET Return to caller 
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Single Step (I and C Commands) 



505D F5 


PUSH 


AF 


505E ED5B7B40 


LD 


DE, (407BH) 


5062 1A 


LD 


A, (DE) 


5063 211551 


LD 


HL,5115H 


5066 FEDD 


CP 


0DDH 


5068 280E 


JR 


Z,5078H 


506A FEFD 


CP 


0FDH 


506C 280A 


JR 


Z,507 8H 


506E 21E050 


LD 


HL.50E0H 


5071 FEED 


CP 


0EDH 


5073 2006 


JR 


NZ,507BH 


5075 210E51 


LD 


HL,510EH 


5078 13 


INC 


DE 


5079 1A 


LD 


A,(DE) 


507A IB 


DEC 


DE 


507B 4F 


LD 


C,A 


507C 7E 


LD 


A,(HL) 


507D Al 


AND 


C 


507E 23 


INC 


HL 


507F BE 


CP 


(HL) 


5080 23 


INC 


HL 


5081 2806 


JR 


Z,5089H 


5083 23 


INC 


HL 


5084 7E 


LD 


A, (HL) 


5085 FE05 


CP 


05H 


5087 30F3 


JR 


NC507CH 


5089 7E 


LD 


A, (HL) 


508A 47 


LD 


B,A 


508B E60F 


AND 


0FH 


S08D 6F 


LD 


L,A 


508E 2600 


LD 


H,00H 


5090 19 


ADD 


HL,DE 


5091 D5 


PUSH 


DE 


5092 116240 


LD 


DE,4062H 


5095 CDCA4F 


CALL 


4FCAH 


5098 El 


POP 


HL 


5099 78 


LD 


A,B 


509A E6F0 


AND 


0F0H 


509C 2816 


JR 


Z,50B4H 


509E 23 


INC 


HL 


509F FE20 


CP 


20H 


50A1 3835 


JR 


C50D8H 


50A3 2827 


JR 


Z,50CCH 


50A5 FE40 


CP 


40H 


50A7 3817 


JR 


C50C0H 


50A9 280F 


JR 


Z,50BAH 


50AB FE60 


CP 


60H 


50AD 3808 


JR 


C,50B7H 


50AF Fl 


POP 


AF 


50B0 FE49 


CP 


49H 


50B2 2806 


JR 


Z,50BAH 


50B4 C3A44F 


JP 


4FA4H 


50B7 2A7940 


LD 


HL, (4079H) 


50BA 7E 


LD 


A, (HL) 


50BB 23 


INC 


HL 


50BC 66 


LD 


H,(HL) 


50BD 6F 


LD 


L,A 


50BE 181B 


JR 


50DBH 


50C0 4E 


LD 


C, (HL) 


50C1 AF 


XOR 


A 


50C2 CB79 


BIT 


07H.C 


50C4 2801 


JR 


Z,50C7H 


50C6 2F 


CPL 




50C7 47 


LD 


B,A 


50C8 23 


INC 


HL 


50C9 09 


ADD 


HL,BC 


50CA 180F 


JR 


50DBH 


50CC 2A7540 


LD 


HL, (4075H) 


50CF CB69 


BIT 


05H,C 


50D1 2808 


JR 


Z,50DBH 


50D3 2A7740 


LD 


HL, (4077H) 


50D6 1803 


JR 


50DBH 


50D8 2A6B40 


LD 


HL,(406BH) 


50DB CDCA4F 


CALL 


4FCAH 


50DE 18D4 


JR 


50B4H 



Save command specification 

Load resumption address 

Load OP code at 'resume' address 

Addr of group 3 type instructions 

Test for indexed instruction 

Jump if indexed IX instr. 

If not, test for IY indexed instr. 

Jump if indexed IY 

Addr of group 1 type instructions 

Test for special instruction 

Go if not indexed or special instr. 

Addr of group 2 type instructions 

Bump to next byte of instruction 

Fetch next instruction byte 

Backspace to start of instruction 

C = LSB of OP code 

Fetch OP code mask 
Apply mask to LSB of OP code 
Bump to OP code value in 
instruction list 
Compare to OP code in table 
Bump to code length in list 
Jump if OP codes match, else 
bump to next 3 byte entry 
Fetch mask 
_Jand test for end of list 

,^T Go if end of list not reached 
Get code/length value for instruction 

Save in B 

Isolate length of instruction to 

be single cycled 

Then form length of instruction 

in HL, and 

add to addr of instr. to execute 

Save address of next instruction 

Load trap address save location 

Original instr to 4062. Trap to (HL) 

Restore addr of instr after current 

Reload code/length for current instr 

Isolate type e.g. RET, JP, CALL ... 

Go if type 0. Exec. cont. at next addr. 

Bump addr. of next instr. by one 

Test for JP type instr. 

Jump if JP (HL) instr. (Type 1) 

jump if JP (IX/IY) instr. (Type 2) 

Test for JP XXXX type instr. 

jump if DJNZ (Type 3) 

Jump if JP XXXX (Type 4) 

Test for type 6 

Jump if code 5 (RET type instr.) 

Restore command (I or C) 

Compare with I, If so go 

store trap at CALL addr and execute 

C command. Go restore context 

and execute instruction 

Load ret addr from context stack 

LSB of return addr. 

Bump to MSB of ret. addr. 

load MSB of return addr. 

HL = return address 

Go restore context and exec, instr. 

Fetch offset for DJNZ, JR 

Clear status flags 

Test sign bit of offset displacement 

Jump if positive. Forward jump 

Negative displacement. Convert to 

8 bit negative value 

Bump to addr of following instr. 

Add offset to get addr of next instr. 

Go restore context, execute instr. 

Load IX in case of JP (IX) 

Test if JP (IX) 

If JP (IX) go execute instruction 

Load IY. JP (IY) instr. 

Go restore context, execute instr. 

Get jump address from HL 

Stuff trap instruction there 

Go restore context, execute instr. 



Group 1 INSTRUCTION LIST 

Each entry has the following format: 

DEFB MASK, OP CODE, TYPE/LENGTH 

TYPE = A code indicating where the address of the 
next instruction may be found, type codes defined 
as follows: 

- Next instruction follows current instr. 

1 - Next instr. addr. comes from HL as in JP (HL) . 

2 - Next instr. addr. conditionally comes from 

operand, as in JP C,XXXX. 

3 - Conditional as in DJNZ XXXX. 

4 - Operand as in JP XXXX. 

5 - Conditional ana indirect as in RET, or RET NZ. 

6 - Conditional, operand as in CALL NZ,XXXX or 

CALL XXXX 



50E0 
50E3 
50E6 
50E9 
50EC 
50EF 
50F1 
50F5 
50F8 
50FB 



DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 



C7H,C0H,51H 

FH,C9H,51H 

FFH,E9H,11H 

CFH,01H,03H 

E7H,22H,03H 

C7H,C2H,43H 

FFH,C3H,43H 

C7H,C4H,63H 

FFH,CDH,63H 

C7H,06H,02H 



50FE 


DEFB 


F7H,D3H,02H 


5101 


DEFB 


C7H,C6H,02H 


5104 


DEFB 


FFH,CBH,02H 


5107 


DEFB 


F7H,10H,32H 


51 0A 


DEFB 


E7H,20H,32H 


51 0D 


DEFB 


01H 



Default length for any instructions not matching those in list 

GROUP 2 INSTRUCTION LIST 
Each bythe has the following format 
DEFB MASK, OP CODE, TYPE/LENGTH 
LENGTH = length of the current op code 



510E 


DEFB 


C7H,43H,04H 


5111 


DEFB 


F7H,45H,52H 


5114 


DEFB 


02H 



* Default length for any instructions not matching those in above list 
* 

* GROUP 3 INSTRUCTION LIST 

* Each byte has the following format: 

* DEFB MASK, OP CODE, TYPE/LENGTH 

* LENGTH - length of the current op code 



5115 


DEFB 


FEH,34H,03H 


5118 


DEFB 


C0H,40H,03H 


511B 


DEFB 


C0H,80H,03H 


511E 


DEFB 


FFH,21H,02H 


5122 


DEFB 


FFH,22H,04H 


5124 


DEFB 


FFH,2AH,04H 


5127 


DEFB 


FFH,36H,04H 


512A 


DEFB 


FFH,CBH,04H 


512D 


DEFB 


FFH,E9H,22H 


5130 


DEFB 


02H 



GROUP 3 INSTRUCTION LIST 
Each byte has the following format 
DEFB MASK, OP CODE, TYPE/LENGTH 
LENGTH = Length of the current op code 



5131 
5132 
5134 
5137 
5139 
513C 
513F 
5141 



C5 

3E3D 

CD3300 

3E3E 

CD3300 

CDF251 

0610 

CD6551 



5144 3A5D40 
5147 FE41 
5149 2013 
514B CDF251 
514E 7E 
514F FE20 



5151 
5153 
5155 
5157 
5159 
51 5C 
515D 
515E 
5161 
5163 
5164 



3804 

FEC0 

3802 

3E2E 

CD3300 

23 

AF 

C4D051 

10DE 

CI 

C9 



PUSH 

LD 

CALL 

LD 

CALL 

CALL 

LD 

CALL 

LD 

CP 

JR 

CALL 

LD 

CP 

JR 

CP 

JR 

LD 

CALL 

INC 

XOR 

CALL 

DJNZ 

POP 

RET 



BC Preserve caller's BC 

A,3DH ASCII value for = 

0033H Display = 

A,3EH ASCII value for > 

0033H Display > 

51F2H Display a space 

B,10H Number of values to display. 

5165H If addr to modify is being 

displayed bracket it with bars 

A, (405DH) Fetch display mode flag 

41 H Test for A 

NZ,515EH Jump if not alphabetical 

51F2H Display a blank 

A,(HL) Fetch a character 

20H Test for control code 

(compare to space) 

C,5157H Jump if control code. Display a , 

0C0H Test for compression code 

C,5159H Jump if not a compression code 

A.2EH ASCII value for . 

0033H Display character or . 

HL Bump to next character in list 

A Clear status to skip CALL below 

NZ,51D0H Display a hex value 

5141 H Loop till 16 values displayed 

BC Restore caller's BC 

Return to caller 



Put Display Bars Around Location Being Modified 



5165 ED5B6040 

5169 13 
516A E5 
516B AF 
516C ED52 
516E 3E95 

5170 280E 

5172 CD8451 

5175 23 

5176 7D 

5177 B4 

5178 El 

5179 3EAA 
517B CA3300 

517E 1808 

5180 CD3300 

5183 El 

5184 78 

5185 FE08 

5187 C0 

5188 1868 



518A D5 
518B CD4900 
518E FE0D 
5190 280E 
5192 FE20 

5194 38F5 
5196 CD3300 

5199 Dl 
519A FE2C 
519C C8 



LD DE, (4060H) Load 2nd trap address into DE 

INC DE Bump to addr of following instruction 

PUSH HL Save current display address 

XOR A Clear CARRY for SBC operation 

SBC HL,DE Compare display and modify address 

LD A,95H ASCII code for "left bar" 

JR Z,5180H If display = modify addr. 

disp. left bar 

CALL 5184H If 8 values disp. add an extra space 

INC HL Bump display address 

LD A,L Then combine 

OR H LSB and MSB 

POP HL Restore current display address 

LD A,0AAH ASCII code for right bar 

JP Z,0033H If disp. addr = modify address 

Display closing right bar 

JR 5188H Display space between values and ret 

CALL 0033H Display left bar 

POP HL Restore display address 

LD A,B Get no. of lines still to display 

CP 08H If half a line (8) left, add a space 

RET NZ Exit if not half way point yet 

JR 51F2H Go display a blank and ret to caller 

Get next character from keybaord 



PUSH 

CALL 
CP 
JR 
CP 

JR 

CALL 

POP 

CP 

RET 



DE Preserve callers DE 
0049H . Wait for next character 
0DH . Was it a carriage ret. 
Z,51A0H . Jump if yes - end of line 
20H . Not a carriage return, was it 

a control character 
C518BH . Jump if yes - ignore control codes 
0033H Else echo character received 

(display it) 
DE Restore caller's DE 
2CH Was character received a comma? 
Z Return to caller if yes. 

Process this field 
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519D FE20 
519F C9 
51A0 Dl 
51A1 37 
51A2 C9 



51A3 
51A6 
51A7 
51AA 
51AD 
51 BB 
51B1 
51 B2 
51 B3 
51B4 
51 B5 
51 B6 
51 B9 
51 BB 
51BC 
51BE 



CD8A51 

C8 

210000 

CDBF51 

DA4B4E 

29 

29 

29 

29 

B5 

6F 

CD8A51 

20EF 

IF 

CE81 

C9 



CP 

RET 

POP 

SCF 

RET 



CALL 

RET 

LD 

CALL 

JP 

ADD 

ADD 

ADD 

ADD 

OR 

LD 

CALL 

JR 

RRA 

ADC 

RET 



Test character, 



51BF D630 
51C1 D8 
51C2 C6E9 
51C4 D8 
51C5 C606 
51C7 3803 
51 C9 C607 
51CB D8 
51CC C60A 
51CE B7 
51CF C9 
51D0 7E 
51D1 23 
51D2 1805 
51D4 7C 
51D5 CDD951 
51D8 7D 
51D9 F5 
51DA IF 
51DB IF 
51DC IF 
51DD IF 
51DE CDE251 
51E1 Fl 
51E2 E60F 
51E4 C630 
51 E6 FE3A 
51E8 3802 
51EA C607 
51EC C33300 
51EF CDD951 
51F2 3E20 
51F4 18F6 
51F6 CDFC51 

51F9 CDFC51 

51FC 7E 
51FD 23 
51FE 18EC 



INC 

JR 



Not a comma, compare it with a blank 

and return to caller 

Restore caller's DE 

Signal end of line received 

and return to caller 



Input a hex value 



518AH 

z 

HL,0000H 

51BFH 

C,4E4BH 

HL,HL 

HL,HL 

HL,HL 

HL,HL 

L 

L,A 

518AH 

NZ,51AAH 

A,81H 



Wait for next character 

Ret to caller if it's blank or comma 

Zero accum. to contain hex val on exit 

Get binary value if it was a hex digit 

Jump if not a hex digit (0-9, A-F) 

Digit timeB 2 

Digit times 4 

Digit times 8 

Digit times 16 . In case more 

than 2 digits are entered 

Only last 2 will be used 

Get next digit and if not a blank 

go test char, accumulate hex value 

CARRY flag to Bit 7 

Will set CARRY if carriage return 

Return to caller 



Return with CARRY if not 
(hex digit) 



9, or A ■ 



SUB 

RET 

ADD 

RET 

ADD 

JR 

ADD 

RET 

ADD 

OR 

RET 

LD 

INC 

JR 

LD 

CALL 

LD 

PUSH 

RRA 

RRA 

RRA 

RRA 

CALL 

POP 

AND 

ADD 

CP 

JR 

ADD 

JP 

CALL 

LD 

JR 

CALL 



30H 

C 

A,0E9H 

C 

A,06H 

C51CCH 

A,07H 

C 

A,0AH 



A, (HL) 

HL 

51D9H 

A,H 

51D9H 

A,L 

AF 



51E2H 

AF 

0FH 

A,30H 

3AH 

C51ECH 

A,07H 

0033H 

51D9H 

A,20H 

51ECH 

51FCH 



CALL 51FCH 



A, (HL) 

HL 
51ECH 



Compare with ASCII zero 

Ret if less than 0. Obviously not hex 

Test for a letter > F 

Return if > F. Not a hex digit 

Test for letter (A-z) 

Jump if letter 

Not letter, digit 0-9 

Unnecessary instruction 

Compute final binary value 

Set status flags for value 

Return to caller 

Fetch an 8-bit hex value 

Bump to address of next 8-bit value 

Go convert hex to ASCII and ret 

MSB of value to convert and display 

Display 2 hex digits (MSB) , then 

get LSB and display other 2 hex digits 

Save value to be displayed 

Right shift value 

four 

places 

to isolate and convert upper 

4 bits to hex ASCII and display 

Restore value being displayed 

Isolate lower 4 bits of value 

Gives ASCII value for digit 

Test for hex value A-F 

Jump if digit 0-9 else 

get ASCII value for A-F 

Display char in A and return 

Display 2 hex digits 

ASCII code for a blank 

Display blank and return 

Get char from list in HL 

Display char and ret to 51F9 

Get next char from list 

Display and Ret to 51FC 

Get char from list addr in HL 

Bump to next char, in list 

Display char, ret. 

to caller of 51FC 
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************* 



SYS6/SYS 
Command Processor for: 



APPEND 


ATTRIB 


AUTO 


CLOCK 


COPV 


DATE 


DEVICE 


DIR 


DUMP 


FREE 


KILL 


LIB 


LIST 


LOAD 


PRINT 


PROT 


RENAME 


TIME 


VERIFY 





******************** 



5200 79 


LD 


A,C 


5201 012D40 


LD 


BC402DH 


5204 C5 


PUSH 


BC 


5205 3D 


DEC 


A 


5206 CA0057 


JP 


Z,5700H 


5209 3D 


DEC 


A 


520A CA005B 


JP 


Z.5B00H 


520D 3D 


DEC 


A 


520E CA8352 


JP 


Z.5283H 


5211 3D 


DEC 


A 


5212 CAC552 


JP 


2,52C5H 


5215 3D 


DEC 


A 


5216 CA4F57 


JP 


Z,574FH 


5219 3D 


DEC 


A 


521A CA9D52 


JP 


Z,529DH 


521D 3D 


DEC 


A 


521E CA1D53 


JP 


Z,531DH 


5221 3D 


DEC 


A 


5222 CA6F5C 


JP 


Z,5C6FH 


5225 3D 


DEC 


A 


5226 CAD7557 


JP 


Z,57D7H 


5229 3D 


DEC 


A 


522A CA205E 


JP 


Z.SE20H 


522D 3D 


DEC 


A 


522E CA1459 


JP 


Z,5914H 


5231 3D 


DEC 


A 


5232 CA3A53 


JP 


Z,533AH 


5235 3D 


DEC 


A 


5236 CA2C59 


JP 


Z,592CH 


5239 3D 


DEC 


A 


523A CA9459 


JP 


Z,5994H 


523D 3D 


DEC 


A 


523E CAAC59 


JP 


Z,59ACH 


5241 3D 


DEC 


A 


5242 CA6A53 


JP 


Z,536AH 


5245 3D 


DEC 


A 


5246 CA9C5F 


JP 


Z,5F9CH 


5249 3D 


DEC 


A 


524A CAB152 


JP 


Z.52B1H 


524D 3D 


DEC 


A 


524E CA0455 


JP 


Z,5504H 


* 


Conunana 


Index Out of 


5251 215A52 


LD 


HL,525AH 


5254 CD6744 


CALL 


4467H 


5257 C33040 


JP 


4030H 


525A 


DEFM 




526A 


DEFB 


0DH 


526B 217452 


LD 


HL,5274H 


526E CD6744 


CALL 


4467H 


5271 C33040 


JP 


4030H 


5274 


DEFM 




5281 


DEFB 


2DH 


5282 


DEFB 


0DH 


* 


AUTO Command Pro 


5283 0E00 


LD 


C,00H 


5285 CDF04A 


CALL 


4AF0H 


5288 C24C55 


JP 


NZ,554CH 


528B 164D 


LD 


D,4DH 


528B 1EE0 


LD 


E,0E0H 


528F 012000 


LD 


BC,0020H 


5292 EDB0 


LDIR 




5294 0E00 


LD 


C,00H 


5296 CD034B 


CALL 


4B03H 


5299 C24C55 


JP 


NZ,554CH 


529C C9 


RET 




* 
* 




DATE Routine 


529D 0E2F 


LD 


C,2FH 


529F CDEA52 


CALL 


52EAH 


52A2 C2D352 


JP 


NZ,52D3H 


52A5 21DC52 


LD 


HL,52DCH 


52A8 114440 


LD 


DE.4044H 


52AB 010300 


LD 


BC,0003H 


52AE EDB0 


LDIR 




52B0 C9 


RET 




* 




TIME Routine 


52B1 0E3A 


LD 


C,3AH 


52B3 CDEA52 


CALL 


52EAH 


52B6 C2D352 


JP 


NZ,52D3H 


52B9 21DC52 


LD 


HL,52DCH 


52BC 114140 


LD 


DE,4041H 


52BF 010300 


LD 


BC,0003H 


52C2 EDB0 


LDIR 




52C4 C9 


RET 





= 3 



10 



- 11 



12 



Get command index computed by SYS1 

Put a return address of 402D 

onto the stack 

Test if command index = 1 

Jump if APPEND command 

Test if command index = 2 

Jump if ATTRIB command 

Test if command index 

Jump if AUTO command 

Test if command index = 4 

Jump if CLOCK command 

Test of command index = 5 

Jump if COPY command 

Test if command index = 6 

Jump if DATE command 

Test if command index = 7 

Jump if DEVICE command 

Test if command index = 8 

Jump if DIR command 

Test if command index = 9 

Jump if DUMP command 

Test if command index ■ 

Jump if FREE command 

Test if command index 

Jump if KILL command 

Test if command index 

Jump if LIB command 

Test if command index = 13 

Jump if LIST command 

Test if command index = 14 

Jump if LOAD command 

Test if command index = 15 

Jump if PRINT command 

Test if command index = 16 

Jump if PROT command 

Test if command index = 17 

Jump if RENAME command 

Test if command index = 18 

Jump if TIME command 

Test if command index = 19 

Jump if VERIFY command 



Addr of RESERVED COMMAND message 
Display message, then 
Recall SYS1, option 2 
'RESERVED COMMAND' 
MESSAGE TERMINATOR 



Address of NOTHING DONE message 
Display message 
Return control to SYS1 
to get next command 
'NOTHING DONE' 



MESSAGE TERMINATOR 



Specify drive 

Get track 11, sector into 4D00 

Jump if error while reading GAT 

Form addr of AUTO procedure in 

GAT sector buffer in DE (4DE0) 

No. of chars to put in AUTO area 

Copy 32 chars following AUTO command 

to procedure file name field 

Select drive 

Write updated GAT sector 

Go if error during write 

Return to SYS1 



/ = Only valid terminating character 
Process date. Leave in 52DC-52DE 
Go if char not a number or / 
Start of 3 byte date buffer 
Address of date in system area 
Number of bytes to move 
Copy date from buffer to system area 
Ret to SYS1 to get next command 



C = : (only valid terminator) 

Process time. Leave in 52DC-52DE 

Go if anything but number or : 

Addr of local buffer containing time 

Addr of time buffer in system area 

Number of bytes to move 

Move time to system area 

Ret to SYS6 to read next command 



52C5 CDA051 
52C8 11A94C 
52CB 3E06 

52CD CA1344 
52D0 C31044 



52D3 21DF52 
52D6 CD6744 
52D9 C33040 



52DC 
52DD 
52DE 



52DF 42 
52E9 0D 
52EA 11DE52 
52ED 0603 
52EF D5 
52F0 CDFF52 
52F3 Dl 
52F4 C0 

52F5 12 
52F6 IB 
52F7 05 
52F8 C8 
52F9 7E 
52FA 23 
52FB B9 
52FC 28F1 
52FE C9 



52FF CD1653 
5302 3010 

5304 5F 

5305 07 

5306 07 

5307 83 

5308 07 

5309 5F 
530A CD1653 
530D 3005 
530F 83 

5310 5F 

5311 AF 

5312 7B 

5313 C9 

5314 B7 

5315 C9 



5316 7E 

5317 23 

5318 D630 
531A FE0A 
531C C9 



531D 
5320 
5321 
5322 
5323 
5325 
5328 
5329 
53 2C 
532E 
5331 
5332 



21C043 

7E 

2C 

B7 

2812 

CD3300 

7E 

CD3300 

3E0D 

CD3300 

7D 

C603 



5334 6F 

5335 30E9 



5337 C32D40 



53 3 A 
533D 
53 3F 
5341 
5344 
5346 
5347 
5348 
534B 
534D 
534F 
5352 
5353 
5354 
5355 
5356 



21BD4E 

0E04 

3EC2 

CD3300 

0606 

7E 

23 

CD3300 

10F9 

3EC8 

CD3300 

23 

23 

7E 

B7 

280A 



CALL 
LD 



JP 
JP 



LD 
CALL 



CLOCK Routine 

51A0H 

DE,4CA9H 

A.06H 



Z,4413H 
4410H 



HL,52DFH 

4467H 

4030H 



SYS1 ON/OFF parameter processor 
Clock maintenance routine address 
Index for clock routine in 
interrupt service list 
Remove addr from list, go to SYS1 
Add addr to list. Go to SYS1 



Address of BAD FORMAT message 

Display message 

Re-execute SYS1 (get next command) 



Local Storage Area 



DEFB 
DEFB 
DEFB 



DEFM 

DEFB 

LD 

LD 

PUSH 

CALL 

POP 

RET 

LD 

DEC 

DEC 

RET 

LD 

INC 

CP 

JR 

RET 



CALL 

JR 

LD 

RLCA 

RLCA 

ADD 

RLCA 

LD 

CALL 

JR 

ADD 

LD 

XOR 

LD 

RET 

OR 

RET 



LD 
INC 
SUB 
CP 

RET 



LD 

LD 

INC 

OR 

JR 

CALL 

LD 

CALL 

LD 

CALL 

LD 

ADD 



LD 
JR 



LD 

LD 

LD 

CALL 

LD 

LD 

INC 

CALL 

DJNZ 

LD 

CALL 

INC 

INC 

LD 

OR 

JR 



3 byte buffer used to hold date 
and time before transferring 
them to the system area 



'BAD FORMAT' 
0DH MESSAGE TERMINATOR 

DE,52DEH Ending addr of local 3 byte buffer 
B, 03H Number of fields to process 
DE Save storage address 

52FFH Process next field. Must be 2 digits 
DE Restore buffer address 
NZ Exit if error in field. 

Non-numeric encountered 
(DE) ,A Save a date field 
DE Backup to next storage address 
B Count one field processed 

Z Exit if all fields processed 

A f (HL) Get field separator from command 
HL Bump to 1st char of next field 
C Compare separator to specified value 

Z,52EFH Loop if legitimate separator 

Ret to caller if illegal separator 



5316H Get next char from command string 
NC,5314H Jump if alpha character (error) 
E,A Save value (will be added later) 

Value * 2 

Value * 4 
A,E Value * 5 

Value * 10 
E,A Save binary equivalent of digit 
5316H Get next char from command string 
NC,5314H Jump if not numeric (error) 
A,E Combine with value of previous 
E,A Digit * 10 

A Set status flag for no error 

A,E Binary equivalent of decimal 

value in A-reg. 

Return to caller 
A Signal error with non-zero status 

Ret. Alpha character encountered 



A,(HL) Fetch real char from command buffer 
HL Bump to next character 
30H Convert ASCII digit to binary 
0AH Test for non-numeric character 

Ret w/CARRY if char greater than 9 

DEVICE Routine 

HL,43C0H Device table address 

A, (HL) .», Get ASCII char of device type 

L . Bump to next char in device name 

A . Check for end of list 

Z,5337H .Jump if end of device table, else 

0033H . display 1st char of device type 

A, (HL) . Get 2nd char of device type 

0033H . Display it then 

A,0DH . follow with car. ret. to 

0033H . skip to next line 

A,L . LSB of device table address 

A,03H . Add 3 to get next entry. 

Skip over driver address 

L,A . Reform addr of next entry in HL 

NC,5320H ._l rest if absolute end of 

list reached (43CF) 

402DH ,^J Return to SYS1 



LIB Routine 

HL,4EBDH 

C,04H 

A,0C2H 

0033H 

B,06H 

A, (HL) 

HL 

0033H 

5346H 

A,0C8H 

0033H 

HL 

HL 

A, (HL) 

A 

Z,5362H 



Addr of 2nd crad list in SYS1 

No. of cmds printed per line 
Compression code for 2 blanks 
Display two blanks 
No. chars in each cmd list entry 
.#_. Get a char from command list 
Bump to next char in list 
Display character 
— I Loop till all chars displayed 
Compression code for 6 blanks 
Display 8 blanks 

Skip over addr of action routine 
in SYS1 for this command 
Get 1st char of next command 
Get status for end of list test 
Jump if end of list reached 
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5358 UD 

5359 2BE9 
535B 3E0D 
535D CD3300 

5360 18DB 
5362 3E0D 
5364 CD3300 
5367 C32D40 



DEC 

JR 

LD 

CALL 

JR 

LD 

CALL 

JP 



NZ.5344H 

A,0DH 

0033H 

533DH 

A,0DH 

0033H 

402DH 



Count no. of cmds on this line 

Jump if line not full 

Else, skip to next line 

By displaying carriage return 

Go top of loop, reset counts 

Done, skip 

to next line 

and ret to SYS1 for next command 



53 6A 
536D 
536F 
5372 
5375 
5379 
537D 
5381 
5363 
5384 
5386 
5388 
5389 
53 8A 
538C 
538D 
538E 
538F 
5392 
5395 



3A0F43 

CB6F 

C26E54 

010000 

ED43D953 

ED43F953 

ED430354 

0E00 

7E 

FE3A 

2006 

23 

7E 

D630 

4F 

23 

79 

32BC53 

11EB54 

CD7644 



LD 
BIT 



5398 3AD953 
539B 21F953 
539E B6 
539F 210354 
53A2 B6 

53A3 CA6B52 
53A6 3E03 
53A8 115155 
53AB 12 



LD 

LD 

CP 

JR 

INC 

LD 

SUB 

LD 

INC 

LD 

LD 

LD 

CALL 

LD 



LD 
OR 

JP 
LD 
LD 
LD 



53AC 

53AF 

53B2 

53B5 

53B8 

53BB 

53 BD 

53C0 

53C3 

53C6 

53CA 

53CB 

53CD 

LD 

53D2 

53D5 



53 D8 
53DB 
53DC 
53DD 
53DF 
53E2 
53 E5 
53 E8 

53 EB 
53EE 
53EF 
53F2 
53F5 
53F8 
53FB 
53FC 
53FD 
53FF 
5402 
5405 
5406 
5407 
5409 
540C 
540F 
5412 
5413 
5416 
5418 
541B 
541E 
5421 
5423 
5424 
5426 
5428 

54 2A 
542B 
542D 
542E 
542F 
5432 
5433 
5434 
5435 
5436 
5437 
5438 



CD2444 

21A054 

CD6744 

CD5454 

226851 

0E00 

CDF04A 

C24C55 

2ACE4D 

ED5B6851 

AF 

ED52 

2809 

HL.54D2H 
CD6744 CALL 
C33040 JP 



CALL 

LD 

CALL 

CALL 

LD 

LD 

CALL 

JP 

LD 

LD 

XOR 

SBC 

JR 



PROT Command Processing 

A, (430FH) Get system condition/permission flag 

05H,A Test if PROT command allowed 

NZ,546EH Jump if PROT not permitted 

BC,0000H Zero value for 

(53D9H) ,BC PW flag 

(53F9H) ,BC LOCK flag 

(5403H) ,BC UNLOCK flag 

C,00H Setup C reg for default drive 3 

A, (HL) Get 1st char following PROT conmand 

3AH If it's a : there's a drive spei:. 

NZ,538EH Jump if no drive specification 

HL Get drive no. Bump to next char 

A, (HL) Fetch drive number from command 

30H Convert ASCII to binary 

C,A Save drive number in C reg 

HL Bump to next char in command 

A,C Drive number to A register 

(53BCH),A so it can be saved at 53BC 

DE,54EBH Address of PW/LOCK/UNLOCK options 

4476H SYSl/code 6, compare rest of 

command to option list 

A,(53D9H) Get PW flag 

HL.53F9H Address of LOCK flag 

(HL) Combine PW/LOCK test results (SYS1) 

HL,5403H Address of UNLOCK flag 

(HL) Combine with PW/LOCK/UNLOCK test 

results from SYS1 

Z,526BH Go if PW/LOCK/UNLOCK not specified 

A,03H Illegal character code 

DE,5551H Address of local DCB 

(DE) ,A Put illegal char in DCB so OPEN 

will return immediately 

4424H OPEN dummy file. Load SYS2 into 4E00 

HL,54A0H Addr of MASTER PASSWORD? message 

4467H Display message 

5454H Go read password from keyboard 

(5168H),HL Save encode of password 

C,00H C = drive number to read 

4AF0H Read track 11, sector into 4D00 

NZ,554CH Jump if error during READ 

HL, (4DCEH) Addr of password in GAT sector buffer 

DE, (5168H) Addr of new PW in SYS2 storage area 

A Clear CARRY flag 

HL,DE Compare encode of passwords 

Z,53D8H Go if correct PW entered, 53CF 21D254 
Addr of INVALID MASTER PASSWORD msg 

4467H Display message 

4030H Return to SYS1 for next command 



110000 

7A 

B3 

2816 

21B954 

CD6744 

CD5454 

22CE4D 

3ABC53 

4F 

CD034B 

C24C55 

2ACE4D 

110000 

7A 

B3 

200D 

219642 



7A 

B3 

2003 

C32D40 

223054 

3ABC53 

4F 

CD554B 

1E02 

210042 

CD354B 

C24C55 

2E40 

7E 

E6F8 

FE10 

2010 

7D 

C610 

6F 

D5 

110000 

73 

2C 

72 

2C 

73 

2C 

72 



LD 

LD 

OR 

JR 

LD 

CALL 

CALL 

LD 

LD 

LD 

CALL 

JP 

LD 

LD 

LD 

OR 

JR 

LD 



OR 

JR 

JP 

LD 

LD 

LD 

CALL 

LD 

LD 

CALL 

JP 

LD 

LD 

AND 

CP 

JR 

LD 

ADD 

LD 

PUSH 

LD 

LD 

INC 

LD 

INC 

LD 

INC 



DE,0000H 

A,D 

E 

Z,53F5H 

HL,54B9H 

4467H 

5454H 

(4DCEH) ,HL 

A, (53BCH) 

C,A 

4B03H 

NZ,554CH 

HL,(4DCEH) 

DE,0000H 

A,D 

E 

NZ,540CH 

HL,4296H 

DE,0000H 

A,D 

E 

NZ,540CH 

402DH 

(5430H),HL 

A, (53BCH) 

C,A 

4B55H 

E,02H 

HL,4200H 

4B35H 

NZ.554CH 

L,40H 

A, (HL) 

0F8H 

10H 

NZ,543AH 

A,L 

A,10H 

L,A 

DE 

DE,0000H 

(HL) ,E 

L 

(HL) ,D 

L 

(HL),E 

L 

(HL) ,D 



Load results from SYS1 PW test 

53D9/53DA will contain 

FFFF if PW option detected 

Go if zero (PW option not selected) 

Addr of NEW MASTER PASSWORD? msg 

Display message 

Put reply (PW) in buffer at 5600 

Save PW encode in GAT sector buffer 

Get drive number 

Move to C register for nucleus call 

Write GAT sector 

Go if error during GAT sector write 

Load encode of password 

Get SYS flag for LOCK option 

53F9-53FA will contain 

FFFF if LOCK specified 

Jump if LOCK specified 

Encode of UNIVERSAL password 

Get SYS1 flag for UNLOCK 

Combined SYS1 

flag bytes 

Go if UNLOCK specified, else 

Go SYS1 (TRSDOS READY) No PROT and 

Save LOCK/UNLOCK PW encode specified 

Load drive number 

Move to C for nucleus call 

Get dir track no. for drive in C 

Sector number to read 

Buffer address = 4200 

Read track 11 , sector 2 

Jump if error during read 

Form addr of 3rd entry in directory 

Get entry available/assigned byte 

Isolate available/assigned list 

Test if entry available 

Jump if entry assigned 

Get LSB of beginning of entry addr 

Compute addr of UPDATE password 

Reform address in HL 

Save track/sector number 

Load master password 

Move it to UPDATE password (LSB) 

Bump to next password in entry 

MSB of master pw to MSB of UPDATE pw 

Bump to LSB of access pw 

LSB of master pw to LSB of access pw 

Bump to MSB of PW 

MSB of master PW to MSB of ACCESS PW 



5439 
543A 
543B 
543D 
543F 
5440 
5442 
5445 
5448 
544B 
544C 
544D 
544F 
5451 
5454 
5456 
5459 
545C 
54 5D 
545F 
5460 
5461 
5463 
5464 
5465 
5467 
5468 
5469 
546B 



Dl 

7D 

E6E0 

C620 

6F 

30E1 

210042 

CDEF46 

C24C55 

1C 

7B 

FE0A 

38C7 

C32D40 

0608 

210056 

CD4000 

EB 

2600 

68 

19 

3E08 

90 

47 

3E20 

77 

23 

10FC 

C3D150 



546E 217754 



5471 CD6744 
5474 C33040 



5477 
5478 
54 9F 
54A0 
54A1 
54 B8 
54 B9 
54 BA 
54D1 
54D2 
54EA 



54EB 
54F1 
54 F3 
54 F9 
54FB 
5501 
5503 



5504 CDA051 
5507 218B47 
550A 2803 
550C 21A847 
550F 223A44 
5512 C32D40 



POP 

LD 

AND 

ADD 

LD 

JR 

LD 

CALL 

JP 

INC 

LD 

CP 

JR 

JP 

LD 

LD 

CALL 

EX 

LD 

LD 

ADD 

LD 

SUB 

LD 

LD 

LD 

INC 

DJNZ 

JP 



CALL 
JP 



DEFB 
DEFM 
DEFB 
DEFB 
DEFM 
DEFB 
DEFB 
DEFM 
DEFB 
DEFM 
DEFB 



DE 

A,L 

0E0H 

A,20H 

L,A 

NC.5423H 

HL,4200H 

46EFH 

NZ,554CH 

E 

A,E 

0AH 

C.5418H 

402DH 

B, 08H 

HL,5600H 

0040H 

DE,HL 

H,00H 

L,B 

HL,DE 

A,08H 

B 

B,A 

A,20H 

(HL) ,A 

HL 

5467H 

50D1H 



HL,5477H 



4467H 
4030H 



Restore track/sector no. for next read 

Prepare to form addr of next entry 

Test if end of sector reached 

Compute address of next entry 

Form address in HL 

Go if end of buffer not reached 

Reform buffer address 

Write updated sector back to disk 

Jump if error during rewrite 

Bump sector address 

and move it to A where end 

of track test can be made 

Jump if not end of track 

Done, ret to SYS1 for next command 

Max no. of characters to read 

Address of local buffer 

Wait for user input 

DE = beginning buffer address 

Set HL equal to number of 

characters read from keyboard 

Compute end of data in buffer 

Then compute number of bytes 

remaining in buffer 

and save as counter 

Then blank fill 

rest of buffer 

Bump to next position in buffer 

and loop till buffer blank 

SYS2 subroutine to encode password 



Address of INVALID COMMAND 
DURING PROGRAM CHAINING msg. 
Display message 
and return to SYS1 for next command 



0AH Line feed 

'INVALID COMMAND DURING PROGRAM CHAINING' 

0DH Message terminator 

0AH Line feed 

'MASTER PASSWORD ? ' 

03H Message terminator 

0AH Line feed 

'NEW MASTER PASSWORD 7 ' 

03H Message terminator 

'INVALID MASTER PASSWORD' 

0DH Message terminator 



Text Strings for PROT Parameter 

DEFM 'PW ' Parameter 

DEFW 53D9H Address for password value 

DEFM 'LOCK ' Parameter 

DEFW 53F9H Address for lock parameter 

DEFM 'UNLOCK' Parameter 

DEFW 5403H Address for unlock parameter 

DEFB 00H Text string terminator 

Verify Command Processing 

CALL 51A0H SYS1 routine to check for ON/OFF 

LD HL,478BH Turn verify flag ON or OFF 

JR Z.550FH Jump if VERIFY (OFF) 

LD HL,47A8H Move addr of VRFY routine in nucleus 

LD (443AH),HL to addr field of WRITE jump vector 

JP 402DH Done. Ret to SYS1 for next command 



Pause routine. Reads keyboard and tests for SHIFT @ 
key active. If active, pauses until any key struck. 

Called by APPEND, LIST, PRINT and DIR. 

If Bit 5 in the system condition flag (430F) is not set, 
return to the caller with the zero status flag set. 
if Bit 5 is set then: 

1. Test the BREAK key. If active return with a 
non-zero status. 

2. If the BREAK key is inactive, strobe the 
keyboard. 

If the SHIFT @ keys are inactive, return with a 
zero status. If the SHIFT @ keys are active, 
loop till any key becomes active and return 
control to the caller with the following status: 

BREAK active - non-zero status 
Any key active - zero status 



5515 3A0F43 


LD 


A, (430FH) 


5518 E620 


AND 


20H 


551A EE20 


XOR 


20H 


551C C8 


RET 


Z 


551D 3A4038 


LD 


A, (3840H) 


5520 E604 


AND 


04 H 


5522 C0 


RET 


NZ 


5523 CD2B00 


CALL 


002BH 


5526 FE60 


CP 


60H 


5528 2802 


JR 


Z.552CH 


552A AF 


XOR 


A 


552B C9 


RET 




552C 3A4038 


LD 


A, (3840H) 


552F E604 


AND 


04H 


5531 C0 


RET 


NZ 


5532 CD2B00 


CALL 


002BH 


5535 B7 


OR 


A 



Get system condition flags 

Isolate BREAK key teat flag 

Test if BREAK test flag on 

Ret to caller if BREAK test inactive 

Load row contents for BREAK key 

Isolate BREAK key list 

Exit non-zero status if BREAK active 

BREAK not active. Strobe keyboard 

Test for SHIFT @ 

Jump if SHIFT @ active 

Else signal no activity 

and return to caller 

Refetch BREAK row contents 

Isolate BREAK key bit 

Exit if BREAK active 

If not active strobe keyboard again 

Set status flag for input 



TRSDOS 2.3 Decoded 279 



SYS6/SYS 



5536 28F4 


JR 


Z,552CH 


5538 AF 


XOR 


A 


5539 C9 
* 


RET 




553A 219155 


LD 


HL.5591H 


553D CD6744 


CALL 


4467H 


5540 C33040 


JP 


4030H 


554C F640 


OR 


40H 


554E C30944 


JP 


4409H 



5591 
5592 
55A4 
55A5 
55A6 
55BA 



5700 115155 
5703 CD1C44 
5706 C23A55 

5709 1A 
570A FE2A 
570C CA3A55 

570F 117155 
5712 CD1C44 
5715 C23A55 

5718 1A 

5719 FE2A 
571B CA3A55 

571E 0600 

5720 210056 
5723 CD2444 
5726 C24C55 
5729 0600 
572B 115155 
572E 21006F 
5731 CD2444 
5734 C24C55 
5737 117155 
573A CD4844 
573D 00 
573E 00 
573F 00 

5740 00 

5741 00 

5742 00 

5743 00 

5744 00 

5745 00 

5746 00 

5747 00 

5748 00 

5749 00 
574A 00 
574B 00 
574C C3B657 



574F 115155 
5752 CD1C44 
5755 C23A55 
5758 117155 
57 5B CD1C44 
575E C23A55 
5761 0600 
5763 115155 
5766 210056 
5769 CD2444 
576C C24C55 
576F 0600 
5771 117155 
5774 210056 
5777 CD2044 
577A C24C55 
577D 115155 
5780 CD3644 
5783 280B 
57 85 FE1C 
5787 2818 

5789 FE1D 
57BB 280E 
578D C34C55 

5790 117155 

5793 CD3944 

5796 28E5 
5798 C34C55 



Loop till BREAK active (return 

w/non-zero status) 

Or, any key active (return 

w/zero status) 

Return to caller 



Address of FILE SPEC REQUIRED message 

Display message 

Recall SYS1 and wait for next command 



Add file error bit to error code 

in A-register. 

Call SYS4 to print error message 



DEFB 0AH Line feed 

DEFM 'FILE SPEC REQUIRED 

DEFB 0DH Message terminator 

DEFB 0AH Line feed 

DEFM 'DEVICE SPEC REQUIRED 1 

DEFB 0DH Message terminator 

APPEND command processing 



LD 

CALL 

JP 



CP 
JP 



CALL 
JP 



LD 
CF 
JP 



LD 

CALL 

JP 

LD 

LD 

LD 

CALL 

JP 

LD 

CALL 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

JP 



DE.5551H Address of local DCB area 

441CH Copy/edit file into DCB (SYS1, code 4) 

NZ,553AH Display FILE SPEC. REQUIRED 

(error if no file name) 

A, (DE) Fetch 1st character of file name 

2AH Test for reference to special file 

Z,553AH Display FILE SPEC REQUIRED 

(special file reference) 

DE,5571H Address of 2nd local DCB area 

441CH Copy 2nd file name to DCB area 

NZ,553AH Display FILE SPEC REQUIRED 

(error in 2nd file name) 

A, (DE) Get first char of 2nd file name 

2AH Test for reference to special file 

Z,553AH Display FILE SPEC REQUIRED 

(special file reference) 

B,00H Specify physical I/O 

HL.56 00H Sector buffer addr for 2nd file 

4424H OPEN 2nd file 

NZ,554CH Jump if any error during OPEN 

B,00H Specify physical I/O 

DE,5551H DCB address of 1st file 

HL.6F00H Sector buffer addr for first file 

4424H OPEN second file 

NZ,554CH Go if error while OPENing 2nd file 

DE.5571H DCB address for 2nd file 

4448H Skip to end of file on 2nd file 



Copy file 1 onto end of file 2 



COPY Command Processing 



JP 

LD 

CALL 

JP 

LD 

LD 

LD 

CALL 

JP 

LD 

LD 

LD 

CALL 



JR 
CP 
JR 



JR 
JP 



DE,5551H 

441CH 

NZ,553AH 

DE.5571H 

441CH 

NZ.553AH 

B,00H 

DE,5551H 

HL,5600H 

4424H 

NZ,554CH 

B,00H 

DE,5571H 

HL,5600H 

4420H 

NZ,554CH 

DE,5551H 

4436H 

Z,5790H 

1CH 

Z,57A1H 

1DH 

Z.579BH 

554CH 

DE.5571H 

4439H 

Z.577DH 
554CH 



Address of local DCB area 
SYS1, code 4, copy/edit 1st file 
Go if illegal chars in file name 
Address of 2nd local DCB area 
SYS1, code 4, copy/edit 2nd file name 
Jump if illegal chars 2nd file name 
Set physical I/O for source file 
Address of source DCB 
Sector buffer address 
OPEN source file 
Jump if any error during OPEN 
Set physical I/O for destination file 
Destination DCB address 
Share sector buf with source file 
INIT call for destination file 
Jump if error during INIT processing 
Address of source DCB 
Read sector from source file 
Jump if no error during read 
Test for EOF on source file 
Jump if EOF on source 
else test for record not found 
Jump if record not found 
Some other error. Call SYS4 
to display error message 
No error on source file. 
Load address of dest. DCB 
Write sector just read to 
destination file 
Go if no error during WRITE 
Loop till EOF on source file 



57 9B 2A5955 


LD 


HL,(5559H) 


579E 227955 


LD 


(5579H),HL 


57A1 117155 


LD 


DE,5571H 


57A4 CD2844 


CALL 


4428H 


57A7 C24C55 


JP 


NZ,554CH 


57AA 115155 


LD 


DE,5551H 


57AD CD2844 


CALL 


4428H 


57B0 C24C55 


JP 


NZ,554CH 


57B3 C32D40 


JP 


402DB 


* Continuation 


of APPEND 


57B6 115155 


LD 


DE,5551H 


57B9 CDI300 


CALL 


0013B 


57BC 2807 


JR 


Z,57C5H 


57 BE FE1C 


CP 


1CH 


57C0 28DF 


JR 


Z,57A1H 


57C2 C34C55 


JP 


554CH 


57C5 47 


LD 


B,A 


57C6 CD1555 


CALL 


5515H 


57C9 20D6 


JR 


NZ,57A1H 


57CB 78 


LD 


A,B 


57CC 117155 


LD 


DE,5571H 


57CF CD1B00 


CALL 


001BH 


57D2 C24C55 


JP 


NZ,554CH 


57D5 18DF 
* 


JR 


57B6H 


* 


DUMP Command Proces 


57D7 010070 


LD 


BC.7000H 


57DA ED436858 


LD 


(5868H) ,BC 


57DE ED436E58 


LD 


(586EH) ,BC 


57E2 012D40 


LD 


BC,402DH 


57 E5 ED43AB58 


LD 


(58ABH) ,BC 


57E9 115155 


LD 


DE,5551B 


57EC CD1C44 


CALL 


441CH 


57EF C23A55 


JP 


NZ,553AH 


57F2 1A 


LD 


A, (DE) 


57F3 FE2A 


CP 


2AH 


57F5 CA3A55 


JP 


Z,553AH 


57F8 11F558 


LD 


DE,58F5H 


57FB CD7644 


CALL 


4476H 


57FE 110E59 


LD 


DE,590EH 


5801 215155 


LD 


HL,5551H 



Record not found. Get record no. 

from source DCB, copy to dest. DCB 

Address of destination DCB 

CLOSE destination file 

Jump if any error during CLOSE 

Address of source DCB 

CLOSE source file 

Jump if error during CLOSE 

Return to SYS1 wait for next command 



DCB address for first file 

Read a character from 1st file 

Jump if no error condition 

An error occurred. Was it end of file 

Jump if yes (EOF or source file 

If not. Call SYS4 to process error 

Preserve character just read 

Test for BREAK/SHIFTS 

If BREAK key active terminate operation 

Restore character read 

DCB addr of 2nd file (dest. file) 

Write char from source to dest. file 

Jump if error during write operation 

Else loop till EOF on source file 



Default START address DUMP 

Initialize START address location 

Initialize END address location 

Default TRANSFER address 

Initialize TRANSFER addr location 

Address of local DCB area 

SYS1, code 4, copy/edit file name 

Jump if illegal chars in name 

None, check for 

reference to special file (*) 

Jump if found (error) 

Address of START text 

SYS1, code 6. Look for word START 

Address of local buffer area 

Address of local DCB 



Copy 1st 6 characters of file name to 590E. Copy 
terminates when a special character is detected or 
6 characters have been copied 



5804 0606 

5806 7E 

5807 FE30 

5809 3813 
580B FE3A 
580D 3808 
580F FE41 
5811 380B 
5813 FE5B 
5815 3007 

5817 12 

5818 23 

5819 13 
581A 10EA 



581C 
581E 
5820 
5821 
5822 
5824 
5827 
582A 
582D 
582F 
5832 
5835 
5838 
583A 
583D 
583F 
5842 
5844 
5847 
5848 
5849 
584C 
584E 
5851 
5855 
5856 
5858 
585B 
585D 
5860 
5862 
5865 
5867 



1806 

3E20 

12 

13 

10FA 

115155 

21F258 

CD7344 

0600 

210056 

CD2044 

C24C55 

3E05 

CD1B00 

3E06 

CD1B00 

0606 

210E59 

7E 

23 

CD1B00 

10F9 

2A6E58 

ED4B6858 

AF 

ED42 

21C458 

3861 

21FF6F 

ED42 

21D958 

3057 

210000 



586A E5 
586B 44 
586C 4D 
586D 210000 

5870 23 

5871 AF 

5872 ED42 
5874 2829 

5876 06FE 



LD 
LD 
CP 

JR 

CP 

JR 

CP 

JR 

CP 

JR 

LD 

INC 

INC 

DJNZ 



JR 

LD 

LD 

INC 

DJNZ 

LD 

LD 

CALL 

LD 

LD 

CALL 

JP 

LD 

CALL 

LD 

CALL 

LD 

LD 

LD 

INC 

CALL 

DJNZ 

LD 

LD 

XOR 

SBC 

LD 

JR 

LD 

SBC 

LD 

JR 

LD 



PUSH 
LD 

LD 
LD 

INC 
XOR 
SBC 

JR 

LD 



B,06H 
A, (HL) 
30H 

C, 581 EH 

3AH 

C,5817H 

41H 

C, 581 EH 

5BH 

NC581EH 

(DE) ,A 

HL 

DE 

5806H 

5824H 

A,20H 

(DE) ,A 

DE 

5 81 EH 

DE,5551H 

HL,58F2H 

4473H 

B,00H 

HL,56 

4420H 

NZ,554CH 

A,05H 

001BH 

A,06H 

001BH 

B,06H 

HL,590EH 

A, (HL) 

HL 

001BH 

5847H 

HL, (586 EH) 

BC, (5868H) 

A 

HL,BC 

HL,58C4H 

C,58BEH 

HL,6FFFH 

HL,BC 

HL,58D9H 

NC58BEH 

HL.0000H 

HL 
B,H 
C,L 
HL,0000H 

HL 

A 

HL,BC 

Z,589FH 

B,0FEH 



Max no. of chars to copy 

Get a char from file name 
Test for special character 
(end of file name) 
Go if end of file name found 
Test for numeric 0-9 
Jump if 0-9. Copy character 
Test for special char 3A-3F 
Go if drive no. found. End copy 
Test for upper case letters 
Go if upper case found. End copy 
Char in A-Z, 0-9 range. Copy to 
Short list (590E) then bump 
Fetch and store address 
Loop till 6 chars copied 
or end of name found 
6 chars copied, skip blank file 
ASCII blank to fill short list 
Add to short list 
Bump to next pos. in short list 
Loop till 6 char name blanked 
Addr of DCB for DUMP file 
Address CIM text 
SYSl/code 5. Add CIM extension 
Specify physical I/O 
sector buffer address 
INIT file 

Jump if error during INIT call 
Control code for file name 
Send control code to disk file 
Number of chars in file name 
Send byte count to disk file 
Count for writing file name 
Address of file name buffer 
Fetch a character from file name 
Bump to next character in name 
Send file name char to disk file 
Loop till name written (6 chars) 
Load END addr given in DUMP command 
Load START addr given in DUMP command 
Clear carry 

END addr minus start address 
Addr END LESS THAN START message 
Jump if END less than START (error) 
Check for START address over 7000 
Compute 7000 minus START address 
Addr START LESS THAN 7000 error mag. 
Go if START less than 7000 (error) 
START address. Filled in by SYS1 
from call at 57FB 

Save current START address 

Then copy it 

To BC 

END address. Filled in by 

SYS1 from call at 57FB 

END addr +1 for true byte count 

Clear CARRY 

Compute no. of bytes to write 

Go if done. Else break transfer 

into blocks of 254 byteB 

Max bytes between control bytes 
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SYS6/SYS 



5878 
5879 
587A 
587C 
587D 
587F 
5881 
5882 
5883 
5885 
5888 
5889 
588B 
588E 
588F 
5892 
5893 
5896 
5897 
5898 
589B 
589D 
589F 
58A0 
58A2 
58A5 
58A7 
58AA 



7C 

B7 

21906 

7D 

FEFF 

3001 

45 

El 

3E01 

CD1B00 

78 

C602 

CD1B00 

7D 

CD1B00 

7C 

CD1B00 

7E 

23 

CD1B00 

10F9 

18CB 

El 

3B02 

CD1B00 

3E02 

CD1B00 

210000 



58AD 7D 
58AE CD1B00 
58B1 7C 
58B2 CD1B00 
58B5 CD2844 
58B8 C24C55 
58BB C32D40 
58BE CD6744 
58C1 C33040 



58C4 
58C5 
58D8 
58D9 
58DA 
58F1 



LD 

OR 

JH 

LD 

CP 

JR 

LD 

POP 

LD 

CALL 

LD 

ADD 

CALL 

LD 

CALL 

LD 

CALL 

LD 

INC 

CALL 

DJNZ 

JR 

POP 

LD 

CAL1 

LD 

CALL 

ID 

Ld 

CALL 

LD 

CALL 

CALL 

JP 

JP 

CALL 

JP 



A,H 

A 

NZ,5882H 

A,L 

0FFH 

NC5882H 

B,L 

HL 

A,01H 

001Bh 

A,B 

A,02H 

001BH 

A,L 

001BH 

A,H 

001BH 

A, (HL) 

HL 

001BH 

5896H 

586AH 

HL 

A,02H 

001BH 

A,02H 

001BH 

HL, 



A,L 

001BH 

A,H 

001BH 

4428H 

NZ,554CH 

402DH 

4467H 

4030H 



Test byte count foe transfer 
Get status for upper 8 bits 
Go if transfer count > 255 
Transfer not > 255 
Check if = 255 
Jump if it is. Use 254 
Move count < 255. Use true val 
Restore begin, addr current block 
Code 01 (load data follows) 
Write control code 01 
Get count. Add 2 for overhead 
If it was 254 (max) , may write 
a zero. Write count for DATA 
Then write LSB 
of load address 
followed by MSB 
of load address 
Then begin writing core image 
Bump to next fetch address 
Write a byte of core image 
Loop till block written 
Go test if all blocks written 
Done, clear stack, prepare to 
write transfer address. First 
Write a control code 02 
followed by a byte count 
for the address (2 of course) 
Transfer address filled in by 
SYS1 from call at 57FB 
Fetch a LSB of transfer address 
Write LSB of transfer address 
Fetch MSB of transfer address 
Write MSB of transfer address 
CLOSE disk file. 
Jump if any error during CLOSE 
No error jump to SYS1 
Write DUMP error message 
Ret to SYS1 . Wait for next command 



DUMP Error Messages 



DEFB 
DEFM 
DEFB 
DEFB 
DEFM 
DEFB 



0DH 
0AH 



Line feed 

'END LESS THAN START' 

Message terminator 
Line feed 

'START LESS THAN X'70 
Message terminator 



DEFM 'CIM' Extension for DUMP file name 
DUMP Parameter Text Strings 

Location for START address 

Location for END addresss 

Location for TRA address 
List terminator 



58F5 


DEFM 


'START 


58FA 


DEFW 


58FAH 


58FD 


DEFM 


'END 


5902 


DEFW 


586EH 


5905 


DEFM 


'TRA 


590A 


DEFW 


58ABH 


590D 


DEFB 


00 



Temporary buffer area 



KILL Command Processing 



5914 115155 


LD 


DE,5551H 


5917 CD1C44 


CALL 


441CH 


591A C23A55 


JP 


nZ,553AH 


591D CD2444 


CALL 


4424H 


5920 C24C55 


JP 


NZ,554CH 


5923 CD2C44 


CALL 


442CH 


5926 C24C55 


JP 


NZ,554CH 


5929 C32D40 

4 


JP 


402DH 


* 


LIST 


Command Proce 


592C 010000 


LD 


BC0000H 


592F ED435459 


LD 


(5954H),BC 


5933 115155 


LD 


DE,5551H 


5936 CD1C44 


CALL 


441CH 


5939 C23A55 


JP 


NZ,553AH 


593C 1A 


LD 


A,(DE) 


593D FE2A 


CP 


2AH 


593F CA3A55 


JP 


Z,553AH 


5942 018B59 


LD 


BC598BH 


5945 CD7644 


CALL 


4476H 


5948 0600 


LD 


B,00H 


594A 210056 


LD 


HL,5600H 


594D CD2444 


CALL 


4424H 


5950 C24C55 


JP 


NZ.554CH 


5953 010000 


LD 


BC,0000H 


5956 78 


LD 


A,B 


5957 Bl 


OH 


C 


5958 280D 


JR 


Z.5967H 


595A CD1300 


CALL 


0013H 


595D FE0D 


CP 


0DH 


595F 20F9 


JR 


NZ,595AH 


5961 0D 


DEC 


C 


5962 20F6 


JR 


NZ.595AH 


5964 05 


DEC 


B 


5965 20F3 


JR 


NZ,595AH 


5967 115155 


LD 


DE.5551H 


596A CD1300 


CALL 


0013H 


596D 200F 


JR 


NZ,597EH 


596F CD3300 


CALL 


0033H 


5972 FE0D 


CP 


0DH 


5974 20F1 


JR 


NZ,5967H 



Local DCB address 

File name to local DCB (SYS1 routine) 

Jump if illegal chars in file name 

OPEN file to KILL 

Jump if any error during OPEN 

KILL file 

Jump if error during KILL 

Reload SYSl to wait for next command 



Signal no LINE option 

Selected by zeroing 5954 

Address of local DCB 

Copy and edit file. Move it to 

local DCB. Use SYS1 subroutine. 

Jump if illegal chars in file name 

Test for 

Reference to special file (*) 

Go if special file reference (error) 

Address of LINE text 

SYSl, option 6 test for LINE option 

Specify physical I/O 

Sector buffer address for file 

OPEN file to be LIST'ed 

JUMP if error during OPEN 

LINE option flag 

BC = 0000 if LINE not specified 

BC = Value if LINE value specified 

Jump if LINE option not given 

Get a character from source file 

Have we reached end of a line 

No, loop till end of line 

Yes, decrement line count 

in BC. If non-zero 

Keep looping (skipping lines) 

till no. in LINE option passed 

Addr of file DCB. Begin listing file 

Get a character from source file 

Go if not good status {go test EOF) 

Display character returned 

Test for end of line 

If not end, loop till end found 



5976 


CD1555 


CALL 


5515H 


5979 


C23040 


JP 


NZ,4030H 


597C 


18E9 


JR 


5967H 


597E 


FE1C 


CP 


1CH 


5980 


CA2D40 


JP 


Z,402DH 


5983 


FE1D 


CP 


1DH 


5985 


CA2D40 


JP 


Z,402DH 


5988 


C34C55 


JP 


554CH 


* 




LIST 


Parameter T 


598B 




DEFM 


' LINE ' 


5991 


54 


DEFW 


5991H 


5993 




DEFB 


00H 


* 




LOAD command 


5994 


115155 


LD 


DE,5551H 


5997 


CD1C44 


CALL 


441CH 


599A 


C23A55 


JP 


NZ,553AH 


599D 


1A 


LD 


A, (DE) 
2AH 


599E 


FE2A 


CP 


59A0 


CA3A55 


JP 


Z, 553 AH 


5 9 A3 


CD3044 


CALL 


4430H 


59A6 


CA2D40 


JP 


Z,402DH 


59A9 


C34C55 


JP 


554CH 



Test for BREAK/SHIFT@ condition 

If BREAK active terminate LIST 

Else, loop till end of source file 

Test error status for EOF 

If so, Get SYSl for next command 

Test for record not found error 

If RNF, done. Get SYSl 

Call SYS4 to generate error msg. 



Address of LIST command routine 
List terminator 



Address of local DCB area 

SYSl/ code 4, copy file name to DCB 

Jump if illegal chars found in name 
else test for special file 
name { * ) 

Go if special file name * (error) 
Call nucleus routine to load file 
(hope it doesn't overlay SYS6) 
No error during load. Recall SYSl 
Add file bit to error code and 
call SYS 4. Wait for next command 



PRINT Command Processor 



59AC 115155 


LD 


DE,5551H 


59AF CD1C44 


CALL 


441CH 


59B2 C23A55 


JP 


NZ,553AH 


59B5 1A 


LD 


A,(DE) 


59B6 FE2A 


CP 


2AH 


59B8 CA3A55 


JP 


Z,553AH 


59BB 0600 


LD 


B, 00H 


59BD 210056 


LD 


HL,5600H 


59C0 CD2444 


CALL 


4424H 


59C3 C24C55 


JP 


NZ.554CH 


59C6 115155 


LD 


DE,5551H 


59C9 CD1300 


CALL 


0013H 


59CC 200C 


JR 


NZ.59DAH 


59CE CD3B00 


CALL 


003BH 


59D1 CD1555 


CALL 


5515H 


59D4 C23 040 


JP 


NZ,4030H 


59D7 C3C659 


JP 


59C6H 


59DA F5 


PUSH 


AF 


59DB 3E0D 


LD 


A,0DH 


59DD CD3B00 


CALL 


003BH 


59E0 Fl 


POP 


AF 


59E1 FE1C 


CP 


1CH 


59E3 CA2D40 


JP 


Z.402DH 


59E6 FE1D 


CP 


1DH 


59E8 CA2D40 


JP 


Z,402DH 


59EB C34C55 


JP 


554CH 


* 


Attribute Command 


5B00 115155 


LD 


DE,5551H 


5B03 CD1C44 


CALL 


441CH 


5B06 C23A55 


JP 


NZ,553AH 


5B09 1A 


LD 


A, (DE) 


5B0A FE2A 


CP 


2AH 


5B0C CA3A55 


JP 


Z, 553 AH 


5B0F E5 


PUSH 


HL 


5B10 0600 


LD 


B,00H 


5B12 21004D 


LD 


HL,4D00H 


5B15 CD2444 


CALL 


4424H 


5B18 C24C55 


JP 


NZ,554CH 


5B1B El 


POP 


HL 


5B1C 3A5255 


LD 


A, (5552H) 


5B1F E607 


AND 


07 H 


5B21 3E37 


LD 


A,37H 


5B23 C24C55 


JP 


NZ,554CH 


5B26 AF 


XOR 


A 


5B27 32055C 


LD 


(5C05H) ,A 


5B2A 320D5C 


LD 


(5C0DH) ,A 


5B2D 7E 


LD 


A, (HL) 


5B2E FE28 


CP 


28H 


5B30 2808 


JR 


Z,5B3AH 


5B32 FE20 


CP 


20H 


5B34 C26B52 


JP 


NZ,526BH 


5B37 23 


INC 


HL 


5B38 18F3 


JR 


5B2DH 


5B3A 23 


INC 


HL 


5B3B 7E 


LD 


A, (HL) 


5B3C FE49 


CP 


49H 


5B3E 2857 


JR 


Z,5B97H 


5B40 FE41 


CP 


41H 


5B42 2863 


JR 


Z,5BA7H 


5B44 FE55 


CP 


55H 


5B46 2874 


JR 


Z.5BBCH 


5B48 FE50 


CP 


50H 


5B4A C2395C 


JP 


NZ,5C39H 


5B4D CDD15B 


CALL 


5BD1H 


5B50 CA395C 


JP 


Z,5C39H 


5B53 E5 


PUSH 


HL 


5B54 0607 


LD 


B,07H 


5B56 ED5B5551 


LD 


DE,(5155H) 


5B5A 21615C 


LD 


HL,5C61H 


5B5D 7E 


LD 


A, (HL) 


5B5E 23 


INC 


HL 


5B5F BB 


CP 


E 



Address of local DCB area 

SYSl/code 4, copy file name to DCB 

Go if illegal chars in name (error) 

Fetch 1st character of file name 

Test for special file name (*) 

Jump if special file name (error) 

Specify physical I/O 

Sector buffer address 

OPEN file 

Jump if error occurred during OPEN 

Address of disk file DCB 

Get a character from source file 

If error while reading source file 

go test for EOF/RECORD NOT FOUND 

Send char to ROM print driver 

Test for BREAK or SHIFT @ condition 

If BREAK active exit print operation 

If SHIFT @ active wait for key hit 

Loop till disk read status non-zero 

Save disk status 

Terminate current line by 

Printing a carriage return 

Reload disk drive status 

EOF on source file? 

If so, ret to SYSl (TRSDOS READY) 

If not, Check for RECORD NOT FOUND 

If RNF ret to SYSl for next command 

Not EOF/RNF, let SYS4 process it 



Local DCB address 

SYSl, code 4. File name to DCB 

Jump if error detected in file name 

Is first character 

of file an * 

If SO, display FILE SPEC. REQUIRED 

Save addr of parameters 

Specify physical 1/0 

Sector buffer address 

OPEN file (load SYS2 at 4E00) 

Jump if file does not exist 

Restore command string address 

Fetch permission flags for file 

Isolate access flags 

Signal restricted access 

Invisible file, occupied entry 

Jump if any permission required 

Load a zero and 

clear values to be combined with 

the access and invisibility attributes 

Get next char from command string 

Test for ( 

Jump if (. Start of parameters 

Not (. Test for blank 

Not ( or , so ignore command 

Blank. Skip to next character 

Loop till ( or end of command found 

Bump past ( 

Get next char of parameter field 

Test for I 

Jump if INVISIBLE specified 

Not i, test for ACC 

Jump if A found. Go test for CC 

Not I or A. Test for UPD 

Jump if U. Go test for PD 

Not I, A, or u. Test for PROT 

None of above. Go display 

ATTRIBUTE error message 

Parse PROT command parameter 

Error if not (« KILL/ RENAME/WRITE 

WRITE/READ or PROT 

Save command string address 

Number of entries to compare 

Get 1st 2 chars of PROT parameter 

List of possible parameters 

Get one character from list 
Bump to next char in list 
Compare char of parameter to list 



TRSDOS 2.3 Decoded 281 



SYS6/SYS 



5B60 CC695B 

5B63 23 

5B64 10F7 

5B66 C3395C 



5B69 7E 
5B6A BA 
5B6B ca 
5B6C Fl 

5B6D 78 
5B6E 3D 
5B6F FE05 
5B71 200B 
5B73 3A5751 

5B76 FE4E 
5B78 3E05 
5B7A 2002 
5B7C 3E02 
5B7E 320B5C 
5B81 El 
5B82 0601 
5B84 3A055C 
5B87 B0 
5B88 32055C 
5B8B 7E 
5B8C FE29 
5B8E 2867 
5B90 FE2C 
5B92 28A6 
5B94 C3395C 



5B97 CDD15B 
5B9A C2395C 
5B9D 3A0D5C 
5BA0 F608 
5BA2 320D5C 
5BA5 18DD 



CALL Z,5B69l 

INC HL 

DJNZ 5B5DH 

JP 5C39H 

Test PROT parameters 



If equal, try matching others 
else bump to next option in list 
Loop till all options compared 
Error, no match w/PROT options 



5BA7 
5BAA 
5BAD 
5BAE 
5BB1 
5BB4 
5BB7 
5BB8 
5BBA 



5 BBC 
5BBF 
5BC2 
5BC3 
5BC6 

5BC9 
5BCC 
5 BCD 
5BCF 



CDD15B 

CA395C 

E5 

115551 

CDD150 

226A51 

El 

0602 

18C8 



CDD15B 

CA395C 

E5 

115551 

CDD150 

226 851 
El 

0604 
18B3 



CP 

RET 

POP 



DEC 

CP 

JR 



LD 

JR 

LD 

LD 

POP 

LD 



CP 
JR 
CP 
JR 
JP 



A, (BL) Fetch 2nd char from option test 

D Compare with 2nd char of PROT option 

Nz Exit if not equal. Try next option 

AF Clear ret addr from stack. Will 

ret to 5BF7/5B3A or 5C39 

A,B No. of options remaining in list 

A Decrement for matching option 

05H Are we on RE (READ or RENAME) 

NZ,5B7EB Jump if not RE 

A, (5157H) Fetch 3rd char of PROT parameter. 

Test for RENAME 

4EH Test for N (RENAME not READ 

A,05H Access flags for READ 

NZ,5B7EH Jump if READ option 

A,02B Access flags for RENAME 

(5C0BH) ,A Save access permission for PROT 

HL Restore command string address 

B,01H KILL/RENAME/READ/WRITE/EXECUTE access 

A, (5C05H) Byte of dir entry w/access field 

B Merge with new access permission 

(5C05H) ,A Save updated byte to update dir 

A, (HL) Get next char from command string 

29H Test for ) 

Z,5BF7H Jump if ) found (end of command) 

2CH No left paren. Test for comma 

Z,5B3AH Go if , found (more parameters follow) 

5C39H else error in attribute spec. 



ATTRIB - I Processing 

L 5BD1H Parse rest of command 

NZ,5C39H Jump if command string contains 

A, (5C0DH) more than ). Get access permission 

08H from dir entry. Set invisible flag 

(5C0DH) ,A Save updated access permission flags 

5B84H Go test for closing ) and write 
updated directory entry 



ATTRIB - ACC Processing 

CALL 5BD1H Parse rest of command 

JP Z,5C39H Error if nothing follows A 

PUSH HL Save current cmd string address 

LD DE,5155H Address of ACCESS password 

CALL 50D1H Get encode of ACCESS password 

LD (516AH),HL Save encode 

POP HL Restore command string address 

LD B,02H RENAME/WRITE/READ/EXECUTE access 

JR 5B84H Go update access permission 
field in directory 

ATTRIB - UPD Processing 



CALL 

JP 

PUSH 



POP 

LD 

JR 



5BD1H Parse rest of command 
Z,5C39H Jump if nothing follows U 
HL Save command string address 

DE,5155H Address of buffer UPDATE password 
50D1H Get encode of UPDATE password 

(use subroutine in SYS2) 
(5168H),HL Save encode 

HL Restore command string address 

B,04H Specify WRITE/READ/EXECUTE access 
5B84H Go update access permission 

in directory sector 



Parse PROT Parameters 



5BD1 


23 


INC 


HL 


5BD2 


7E 


LD 


A, (HL) 


5BD3 


FE0D 


CP 


0DH 


5BD5 


C8 


RET 


Z 


5BD6 


FE29 


CP 


29H 


5BD8 


C8 


RET 


Z 


5BD9 


FE2C 


CP 


2CH 


5BDB 


C8 


RET 


Z 


5BDC 


FE3D 


CP 


3DH 


5BDE 


20F1 


JR 


NZ.5BD1H 


5BE0 


23 


INC 


HL 


5BE1 


115551 


LD 


DE,5155H 


5BE4 


0608 


LD 


B,08H 


5BE6 


D5 


PUSH 


DE 


5BE7 


C5 


PUSH 


BC 


5BE8 


3E20 


LD 


A,20B 


5BEA 


12 


LD 


(DE) ,A 


5BEB 


13 


INC 


DE 


5BEC 


10FC 


DJNZ 


5BEAH 


5BEE 


CI 


POP 


BC 


5BEF 


Dl 


POP 


DE 


5BF0 


CD8150 


CALL 


5081H 


5BF3 


2B 


DEC 


HL 


5BF4 


F601 


OR 


01H 


5BF6 


C9 


RET 




5BF7 


ED4B5755 


LD 


BC, (5557H) 


5BFB 


CDC14A 


CALL 


4AC1H 


5BFE 


C24C55 


JP 


NZ,554CH 


5C01 


7E 


LD 


A, (HL) 


5C02 


E6F8 


AND 


0F8H 


5C04 


1600 


LD 


D,00H 


5C06 


CB42 


BIT 


00H,D 


5C08 


2802 


JR 


Z,5C0CH 


5C0A 


F600 


OR 


00H 


5C0C 


F600 


OR 


00H 



Bump to next addr in command 

Fetch next character 

Test for end of line 

Exit if end of line 

Test for closing paren 

Exit if ) 

Test for comma 

Exit if comma 
Test for = 
Not = , loop 

Bump to 1st char following = 
Address of buffer area in SYS2 
No. of buffer bytes to initialize 
Save beginning buffer address 
Save max no. of bytes in buffer 
Initialization value 
.^—.Initialize a buffer byte 

Bump to next buffer byte 

. Ikoop till buffer initialized 

Restore buffer size value in B 

Restore beginning buffer address 

Copy password to buffer address 

in DE. Use subroutine in SYS2 

Back-up cmd $ pointer to terminator 

Signal password found 

and return to caller 

Get dir sector pointer from DCB 

Read dir sector into buffer 

Jump if error during read 

Fetch 1st byte of dir entry 

Clear access permissions 

Load new access permission 

Test if all permission granted 

Jump if not 

Combine access permission bits 

With file visability attribute 



5C0E 


77 


LD 


(HL) ,A 


5C0F 


7D 


LD 


A,L 


5C10 


C610 


ADD 


A,10H 


5C12 


6F 


LD 


L,A 


5C13 


CBS 2 


BIT 


02H,D 


5C15 


280A 


JR 


Z,5C21H 


5C17 


3A6851 


LD 


A, (5168H) 


5 CIA 


77 


LD 


(HL) ,A 


5C1B 


3A6951 


LD 


A, (5169H) 


5C1E 


23 


INC 


HL 


5C1F 


77 


LD 


(HL) ,A 


5C20 


2B 


DEC 


HL 


5C21 


23 


INC 


HL 


5C22 


23 


INC 


HL 


5C23 


CB4A 


BIT 


01H,D 


5C25 


2809 


JR 


Z.5C30H 


5C27 


3A6A51 


LD 


A, (516AH) 


5C2A 


77 


LD 


(HL) ,A 


5C2B 


3A6B51 


LD 


A, (516BH) 


5C2E 


23 


INC 


HL 


5C2F 


77 


LD 


(HL) ,A 


5C30 


CDD64A 


CALL 


4AD6H 


5C33 


C24C55 


JP 


NZ,554CH 


5C36 


C32D40 


JP 


402DH 


5C39 


21425C 


LD 


HL.5C42H 


5C3C 


CD6744 


CALL 


4467H 


5C3F 

* 


C33040 


JP 


4030H 


* 
5C42 




DEFB 


0AH 


5C43 




DEFM 




5C60 




DEFB 


0DH 



Save updated access in dir entry 

Skip to UPDATE access password 

by adding 10 to current dir address 

for address of UPDATE password 

Test if UPDATE password specified 

Jump if not 

Yes. Get new UPDATE password encode 

and save in directory 

Fetch 2nd byte of encode 

Bump to 2nd byte of password 

Save 2nd byte of UPDATE encode 

Back-up for following increments 

Bump to starting position of access 

passwword in directory 

Test for KILL/ RENAME/ READ 

WRITE/EXECUTE access 

Jump if all options allowed 

Else get UPDATE password encode (LSB) 

and copy to directory 

Fetch UPDATE password encode (MSB) 

Bump to 2nd byte of password 

Store MSB encode in directory 

Write updated directory sector 

Jump if any error during WRITE 

Done. Recall SYS1, wait for command 



Address of ATTRIBUTE 

SPECIFICATION ERROR 

Display error message 

Return to SYS1 and wait for next cmd. 



Line feed 

'ATTRIBUTE SPECIFICATION ERROR' 

Message terminator 



PROT Parameter List for ATTRIBUTE Processing 
DEFM 'EXREWR NAKIFU* 

DIR command processing 



5C6F 010000 


LD 


BC.0000H 


5C72 ED439B5D 


LD 


(5D9BH) ,BC 


5C76 ED430B5D 


LD 


(5D0BH) ,BC 


5C7A ED43FD5C 


LD 


(5CFDH) ,BC 


5C7E 0E00 


LD 


C,00H 


5C80 7E 


LD 


A,(HL) 


5C81 FE3A 


CP 


3AH 


5C83 2006 


JR 


NZ,5C8BH 


5C85 23 


INC 


HL 


5C86 7E 


LD 


A, (HL) 


5C87 23 


INC 


HL 


5C88 D630 


SUB 


30H 


5C8A 4F 


LD 


C,A 


5C8B C5 


PUSH 


BC 


5C8C 79 


LD 


A,C 


5C8D C630 


ADD 


A,30H 


5C8F 329E5E 


LD 


(5E9EH) ,A 


5C92 116A5E 


LD 


DE,5E6AH 


5C95 CD7644 


CALL 


4476H 


5C98 21835E 


LD 


HL,5E83H 


5C9B CD6744 


CALL 


4467H 


5C9E CI 


POP 


BC 


5C9F C5 


PUSH 


BC 


5CA0 CD554B 


CALL 


4B55H 


5CA3 1E00 


LD 


E,00H 


5CA5 210042 


LD 


HL.4200H 


5CA8 CD354B 


CALL 


4B35H 


5CAB C24C55 


JP 


NZ,554CH 


5CAE 21D042 


LD 


HL,42D0H 


5CB1 11A15E 


LD 


DE,5EA1H 


5CB4 010800 


LD 


BC,0008H 


5CB7 EDB0 


LDIR 




5CB9 11AD5E 


LD 


DE.5EADH 


5CBC 010800 


LD 


BC.0008H 


5CBF EDB0 


LDIR 




5CC1 21A15E 


LD 


HL,5EA1H 


5CC4 CD6744 


CALL 


4467H 


5CC7 CI 


POP 


BC 


5CC8 0600 


LD 


B,00H 


5CCA 110061 


LD 


DE.6100H 


5CCD CDC14A 


CALL 


4AC1H 


5CD0 C24C55 


JP 


NZ,554CH 


5CD3 2E00 


LD 


L,00H 


5CD5 C5 


PUSH 


BC 


5CD6 010001 


LD 


BC.0100H 


5CD9 EDB0 


LDIR 




5CDB CI 


POP 


BC 


5CDC 04 


INC 


B 


5CDD 78 


LD 


A,B 


5CDE FE08 


CP 


08H 


5CE0 20EB 


JR 


NZ,5CCDH 


SCE2 210061 


LD 


HL.6100H 


5CE5 3E0C 


LD 


A,0CH 


5CE7 32AB5D 


LD 


(5DABH) ,A 


5CEA 0603 


LD 


B,03H 


5CEC 7E 


LD 


A((HL) 


5CED E5 


PUSH 


HL 


5CEE CB67 


BIT 


04H,A 


5CF0 CABF5D 


JP 


Z,5DBFH 


5CF3 CB7F 


BIT 


07H,A 


5CF5 C2BF5D 


JP 


NZ,5DBFH 


5CF8 CB77 


BIT 


06H,A 


5CFA 280A 


JR 


Z.5D06H 



Load 16-Bit zero value to clear 

A option flag (set not selected) 

I option flag (set not selected) 

S option flag (set not selected) 

Default drive number is 

Get next char from command list 

Compare with a : 

Jump if no drive specified 

Drive specified. Bump cmd list addr 

to drive. Get ASCII drive no. 

Bump to character beyond drive no. 

Convert drive number to binary 

and save in C for nucleus I/O calls 

Save drive for later use 

Refetch it 

and convert it to ASCII 

Save drive no. in title message 

Address of DIR option I, S, A 

Call SYSl to parse rest of command 

Address of DIR title line 

Display title line 

Reload drive number in C 

And preserve BC 

Get dir track number in D register 

Select sector 

Use system buffer at 4200 

Read track 11 , sector 

Jump if error during read 

Addr of disk name in GAT sec buf 

Addr of disk name in 3rd title line 

Number of bytes in diskette name 

Move name from GAT buffer to 3rd line 

Addr of date in 3rd title line 

Number of bytes in date 

Move date to 3rd title line 

Address of 3rd title line 

Display 3rd title line 

Restore drive no. to C 

Setup for reading 1st dir sector 

Sector buffer address 

Read sector of dir file into 4200 

Jump if error during read 

Force HL to 4200. Sector buf origin 

Save sector number/drive number 

Number of bytes to move (256) 

Copy buffer at 4200 to 6100 

Restore sector/drive number 

Bump sector number 

Move sector number for comparison 

Did we read last directory sector 

Jump if not. Read next sector 

All sectors have been read. 

Display files 

No. of lines to display before pause 

Initialize line counter 

No. of files displayed per line 

Fetch access control byte from dir 

Save dir addr for current file 

Test if entry is occupied 

If not, go get next entry 

Entry used. Is it primary or overflow 

Jump if overflow. Skip this 

entry, get next one 

Test if user or SYSTEM file 

Jump if SYSTEM file 



282 Appendix II 



SYS6/SYS 



5CFC 1100110 


LD 


DE,0000H 


5CFF 7A 


LD 


A,D 


5D00 B3 


OB 


E 


5D01 CABF5D 


JP 


Z , 5DBFH 


5D04 180C 


JB 


5D12H 


5D06 CB5F 


BIT 


03H,A 


5D08 2808 


JB 


Z,5D12H 


5D0A 110000 


LD 


DE.0000H 


5D0D 7A 


LD 


A,D 


5D0E B3 


OB 


E 


5D0F CABF5D 


JP 


Z , 5DBFH 


5D12 C5 


PUSH 


BC 


5D13 7D 


LD 


A,L 


5D14 C605 


ADD 


A,05H 


5D16 6F 


LD 


L,A 


5D17 0E11 


LD 


C,11H 


5D19 0608 


LD 


B.08H 


5D1B 7E 


LD 


A, (HL) 


5D1C 23 


INC 


HL 


5D1D FE20 


CP 


20H 


5D1F 2808 


JR 


Z,5D29H 


5D21 CD3300 


CALL 


0033H 


5D24 0D 


DEC 


C 


5D25 10F4 


DJNZ 


5D1BH 


5D27 1804 


JB 


5D2DH 


5D29 7D 


LD 


A,L 


5D2A 80 


ADD 


A,B 


5D2B 3D 


DEC 


A 


5D2C 6F 


LD 


L,A 


5D2D 7E 


LD 


A, (HL) 


5D2E FE20 


CP 


20H 


5D30 2814 


JR 


Z,5D46H 


5D32 3E2F 


LD 


A,2FH 


5D34 CD3300 


CALL 


0033H 


5D37 0D 


DEC 


C 


5D38 0603 


LD 


B,03H 


5D3A 7E 


LD 


A, (HL) 


5D3B 23 


INC 


HL 


5D3C FE20 


CP 


20H 


5D3E 2806 


JR 


Z,5D46H 


5D40 CD3300 


CALL 


0033H 


5D43 0D 


DEC 


C 


5D44 10F4 


DJNZ 


5D3AH 


SD46 3E20 


LD 


A,20H 


5D48 CD3300 


CALL 


0033H 


5D4B 0D 


DEC 


C 


5D4C 7D 


LD 


A,L 


5D4D E6E0 


AND 


0E0H 


5D4F 6F 


LD 


L,A 


5D50 46 


LD 


B, (HL) 


5D51 3E53 


LD 


A,53H 


5D53 CB70 


BIT 


06H,B 


5D55 2002 


JR 


NZ,5D59H 


5D57 3E20 


LD 


A,20H 


5D59 CD3300 


CALL 


0033H 


5D5C 3E49 


LD 


A,49H 


5D5E CB58 


BIT 


03H,B 


5D60 2002 


JR 


NZ,5D64H 


5D62 3E20 


LD 


A.20H 


5D64 CD3300 


CALL 


0033H 


5D67 E5 


PUSH 


HL 


5D68 7D 


LD 


A,L 


5D69 C610 


ADD 


A,10H 


5D6B 6F 


LD 


L,A 


5D6C 5E 


LD 


E, (HL) 


5D6D 2C 


INC 


L 


5D6E 56 


LD 


D, (HL) 


5D6F E5 


PUSH 


HL 


5D70 219642 


LD 


HL.4296H 


5D73 ED52 


SBC 


HL,DE 


5D75 El 


POP 


HL 


5D76 2814 


JR 


Z,5D8CH 


5D78 78 


LD 


A,B 


5D79 E607 


AND 


07 H 


5D7B 3E50 


LD 


A,50H 


5D7D 200F 


JR 


NZ,5D8EH 


5D7F 2C 


INC 


L 


5D80 5E 


LD 


E, (HL) 


5D81 2C 


INC 


L 


5D82 56 


LD 


D, (HL) 


5D83 219642 


LD 


HL.4296H 


5D86 ED52 


SBC 


HL,DE 


5D88 3E50 


LD 


A,50H 


5D8A 2002 


JR 


NZ,5D8EH 


5D8C 3E20 


LD 


A,20H 


5D8E CD3300 


CALL 


0033H 


5D91 El 


POP 


HL 


* 


Blank 


fill remair 


5D92 3E20 


LD 


A,20H 


5D94 CD3300 


CALL 


0033H 


5D97 0D 


DEC 


C 


5D98 20F8 


JR 


NZ,5D92H 


5D9A 110000 


LD 


DE,0000H 


5D9D 7A 


LD 


A,D 


5D9E B3 


OR 


E 


5D9F CI 


POP 


BC 


5DA0 C4F15D 


CALL 


NZ,5DF1H 


5DA3 101A 


DJNZ 


5DBFH 


5DA5 3E0D 


LD 


A,0DH 


5DA7 CD3300 


CALL 


0033H 


5DAA 3E00 


LD 


A,00H 



FFFF if S option specified 

Test if user specified S option 

DE = 0000 if not (FFFF if so) 

jump if S option not selected 

S option selected. Go display file 

Test if file is invisible 

Jump if file name is displayable 

FFFF if I option specified 

DE = 0000 if not, FFFF otherwise 

Contents of 5D0B-5D0C modified by 

SYS1 if I option detected 

Jump if I option not selected 

Save file's line count/drive no. 

LSB of current entry address 

Add 5 to form addr of file name 

HL = addr of name in dir sector 

Max no. chars in file name/ext 

Max no. chars in file name 

Fetch a character from name 
Bump to next character 
Is last character a blank 
if yes, go display extension 
Display a char from file name 
Count 1 character displayed 
Loop till name displayed 
Name displayed. Go display ext 
Name not 8 chars. Get LSB of current 
addr in dir buf. Add remainder of 
bytes (-1) left in name to get 
address of extension 
Form address of extension in HL 
Fetch 1st byte of extension 
and compare it to a blank 
If blank, no ext. Go blank ext area 
ASCII / 

Display / after file name 
Dec count for total field size 
Max no. chars in extension 

Fetch a byte from ext name 
Bump to next char in extension 
Is current char a blank 
Jump if yes. End of extension 
reached. Go get next file 
Display current char in ext 
Dec count for total field size 
^_jLoop till extension displayed 
Follow file name or extension 
With a blank 

Dec count displayed in field 
Fetch LSB of current file entry 
Force LSB to beginning of file 
Form beginning of file addr in HL 
Fetch access flag 
ASCII S in case of system file 
Is it a system file 
Jump if yes, display s 
No, replace S with a space 
Display space/S, depending on type 
ASCII I in case file is invisible 
Test if file viewable 
Jump if file invisible 
Not invisible, replace I with space 
Display space/l, 
depending on attribute 
Save beginning addr of file entry 
Get LSB of file entry address 
Add 10 to get addr of UPDATE password 
Form addr of UPDATE password in HL 
Fetch LSB of update password 
Bump to next byte in password 
Fetch MSB of update password 
Save address of UPDATE password 
Value for universal password 
Test if file password protected 
Restore addr of UPDATE password 
Jump if file has no password 
Fetch access flags 
Isolate access control flags 
ASCII P 

Jump if not unrestricted access 
Bump to LSB of ACCESS password 
Fetch LSB of ACCESS password 
Bump to MSB of ACCESS password 
Fetch MSB of ACCESS password 
Universal password code 
Is there any ACCESS password 
ASCII P in case there is a password 
Go if ACCESS password. Display P 
No password. Replace P with space 
Disp. P/space, 
depending on permission 
Restore beginning addr of file entry 



Di 



I A = ASCII space 
Display a space 
Dec count for total field size 
Loop till field filled 
FFFF if A option specified 
Combine LSB and MSB 
Of A option byte. Changed by SYS1 
if A option specified 
Restore files/line count, drive no. 
If A option, go display file size 
Count 1 file displayed. Jump if 
room for more files this line 
Else skip to next line 
By displaying a carriage return 
Get max no. of lines per screen 



5DAC 3D 


DEC 


A 


5DAD 2005 


JR 


NZ.5DB4H 


5DAF CD4900 


CALL 


0049H 


5DB2 3E0C 


LD 


A,0CH 


5DB4 32AB5D 


LD 


(5DABH) ,A 


5DB7 CD1555 


CALL 


5515H 


5DBA C2DB5D 


JP 


NZ,5DDBH 


5DBD 0603 


LD 


B,03H 


counter 






5DBF El 


POP 


HL 


5DC0 24 


INC 


H 


5DC1 7C 


LD 


A,H 



Decrement it 

Go if room for more lines this screen 

Else wait for operator reply 

Max. number of lines per screen 

reset line/screen counter 

Test for BREAK key 

jump if BREAK key active 

Reload no. of files/line 

Restore beginning addr of 

current directory entry 

Bump to next sector 

Test if end of sector list reached 



Loop control for DIR. All directory sectors are read 
into 8 sector buffers beginning at 6100, 6200, . . . 
before the main loop is entered. Each pass through the 
loop processes one file entry from a sector buffer. At 
the end of the loop the MSB of the file entry address 
is incremented by 100 giving the address of the 
corresponding entry in the next sector. When the end 
of the sector buffers is reached, the LSB of the file 
entry address is incremented by 20 to get the address 
of the next entry in the last sector. Then the MSB 
byte of the next entry address is set to 61 giving the 
address of the next file entry in the first sector, 
etc. 



Have 8 sectors been processed? 

If not go process entry from next sec 

Reset MSB of buf pointer to 1st sec 

Fetch LSB of beginning address 

for last entry 

Add 20 to compute beginning addr 

of next entry, form addr in HL 

Jump if all entries not processed 

Zero sector buffers 

to protect passwords 

Skip to next line 

By displaying a carriage return 

Ret to SYS1 to get next command 

Zero sector buffer for security 

Ret to SYS1 for next command 



Beginning addr of sector buffer 
Sector index 
Zero a byte of a sector 
Bump to next byte of sector 
Loop till one sector zeroed 
Bump to next sector address 
Test if all buffers cleared 
End of sector buffers reached 
Jump if not. Zero next sector 
Yes, return to caller 



Save beginning addr of file entry 

Bump by 3 

to get address of 

EOF sector 

Fetch EOF byte offset 

Save in temp, storage area 

Bump to logical record length in dir 

Save address of LRL 

Fetch logical record length 

Move it to A so it can 

be saved in temp, storage 

Sub 1 to force CARRY if LRL = 256 (0) 

Then add CARRY to a 

Byte of zeroes. This yields a 

16 Bit value for LRL (01-0100) 

Addr of LRL in display line 

Convert to ASCII, save in display 

Restore address of LRL 

Fetch LSB of address 

and add 10 to addr of byte 

containing EOF sector no. 

Reform addr of EOF sector in HL 

Fetch LSB of ending sector no. 

Save in temp, storage 

Bump to MSB of EOF sector 

Fetch MSB of ending sector no. 

Save in temp, storage 

Addr of ending sector no. in binary 

Load logical record length. 

Instr. modified at 5DFD 

Divide no. of records by record size 

Quotient to HL 

Addr of ending sec no. in display 

Convert ending sector no. to ASCII 

Restore address of LRL 

Go compute no. grans assigned to file 

Move granule count to HL 

Addr of no. grans in display line 

Convert gran count to decimal ASCII 

Address of LRL display line 

Display LRL/EOF offset and t grans 

Replace line counter with 1 because 

only one file/line with this 

display. Return to caller 



5DC2 FE69 


CP 


69H 


5DC4 C2EC5C 


JP 


NZ,5CECH 


5DC7 2661 


LD 


H,61H 


5DC9 7D 


LD 


A,L 


5DCA C620 


ADD 


A,20H 


5DCC 6F 


LD 


L,A 


5DCD D2EC5C 


JP 


NC, 5CECH 


5DD0 CDE15D 


CALL 


5DE1H 


5DD3 3E0D 


LD 


A,0DH 


5DD5 CD3300 


CALL 


0033H 


5DD8 C32D40 


JP 


402DH 


5DDB CDE15D 


CALL 


5DE1H 


5DDE C33040 

* 
* 


JP 


463BH 


* 

5DE1 210061 


LD 


HL.6100H 


5DE4 0600 


LD 


B,00H 


5DE6 70 


LD 


(HL) ,B 


5DE7 2C 


INC 


L 


5DE8 20FC 


JR 


NZ,5DE6H 


5DEA 24 


INC 


H 


5DEB 7C 


LD 


A,H 


5DEC FE69 


CP 


69H 


5DEE 20F6 


JR 


NZ.5DE6H 


5DF0 C9 


RET 




* 'A' Option of 


DIR Command. 


5DF1 E5 


PUSH 


HL 


5DF2 2C 


INC 


L 


5DF3 2C 


INC 


L 


5DF4 2C 


INC 


L 


5DF5 7E 


LD 


A, (HL) 


5DF6 32695E 


LD 


(5E69H) ,A 


5DF9 2C 


INC 


L 


5DFA E5 


PUSH 


HL 


5DFB 6E 


LD 


L,(HL) 


5DFC 7D 


LD 


A,L 


5DFD 321F5E 


LD 


(5E1FH) ,A 


5E00 D601 


SUB 


01H 


5E02 3E00 


LD 


A,00H 


5E04 CE00 


ADC 


A,00H 


5E06 67 


LD 


H,A 


5E07 11BB5E 


LD 


DE,5EBBH 


5E0A CD6C60 


CALL 


606CH 


5E0D El 


POP 


HL 


5E0E 7D 


LD 


A,L 


5E0F C610 


ADD 


A,10H 


5E11 6F 


LD 


L,A 


5E12 7E 


LD 


A, (HL) 


5E13 32685E 


LD 


(5E68H) ,A 


5E16 2C 


INC 


L 


5E17 7E 


LD 


A, (HL) 


5E18 32675E 


LD 


(5E67H) ,A 


5E1B 21675E 


LD 


HL,5E67H 


5E1E 0E00 


LD 


C,00H 


5E20 CDA760 


CALL 


60A7H 


5E23 EB 


EX 


DE,HL 


5E24 11C75E 


LD 


DE,5EC7H 


5E27 CD6C60 


CALL 


606CH 


5E2A El 


POP 


HL 


5E2B CD3E5E 


CALL 


5E3EH 


5E2E EB 


EX 


DE,HL 


5E2F 11D45E 


LD 


DE,5ED4H 


5E32 CD6C60 


CALL 


606CH 


5E35 21B75E 


LD 


HL.5EB7H 


5E38 CD6744 


CALL 


4467H 


5E3B 0601 


LD 


B,01H 


5E3D C9 


RET 





5E3E 110000 
5E41 7D 
5E42 C61E 
5E44 6F 



LD 
LD 
ADD 
LD 



DE.0000H 
A,L 
A,16H 
L,A 



Zero accumulator 

Fetch LSB of LRL 

Add 16 to position to gap's 

Form address of GAP'S in HL 



TRSDOS 2.3 Decoded 283 



SYS6/SYS 



5E45 7E 
5E46 2C 
5E47 FEFE 
5E49 300C 
5E4B 7E 
5E4C 2C 
5E4D E61F 
5E4F 3C 
5E50 83 
5E51 5F 
5E52 30F1 
5E54 14 
5E55 18EE 
5E57 C0 
GAP'S) 
5E58 46 
5E59 78 
5E5A E607 
5E5C C661 
5E5E 67 
5E5F 78 
5E60 E6E0 
5E62 C616 
5E64 6F 
5E65 18DE 



5E67 DEFB 
5E68 DEFB 
5E69 DEFB 



5E6A 
5E71 
5E72 
5E78 
5E7A 
5E81 
5E82 



5E83 
5E84 
5E85 
5E9F 
5EA0 
5EA1 
5EB5 
5EB6 
5EB7 
5EDF 



5EE0 0E00 

5EE2 3E03 

5EE4 115155 

5EE7 12 

5EE8 CD2444 

5EEB C5 
5EEC CDFD50 



5EEF 
5EF1 
5EF2 
5EF4 
5EF7 
5EFA 
5EFD 
5F00 
5F03 
5F06 
5F08 
5F0B 
5F0E 
5F10 
5F10 
5F13 



2067 

79 

C630 

32685F 

CDF04A 

C24C55 

21D04D 

116E5F 



EDB0 
11795F 



EDB0 
21004D 
21004D 
110000 



5F16 0623 
5F18 7E 
5F19 37 
5F1A IF 
5F1B 3801 
5F1D 13 
5F1E FEFF 
5F20 20F7 
5F22 2C 
5F23 10F3 



5F25 EB 
5F26 11905F 
5F29 CD6C60 
5F2C CI 
5F2D C5 
5F2E CD2E51 



LD 


A, (HL) 


INC 


L 


CP 


0FEH 


JR 


NC,5E57H 


LD 


A, (HL) 


INC 


L 


AND 


1FH 


INC 


A 


ADD 


A,E 


LD 


E,A 


JR 


NC5E45H 


INC 


D 


JR 


5E45H 


RET 


NZ 


LD 


B, (HL) 


LD 


A,B 


AND 


07 H 


ADD 


A,61H 


LD 


H,A 


LD 


A,B 


AND 


0E0H 


ADD 


A.16H 


LD 


L,A 


JR 


5E45H 



Fetch 1st byte of a GAP 
Bump to granule count 
Test for end of gap's or overflow 
Jump if end or overflow 
Load granule count 
Bump to next GAP 
Isolate granule count 
Compute true granule count 
Form sum in DE 
Update LSB of sum 
Jump if LSB has not oveflowed 
else bump MSB of gran count 
Loop till end of GAP' s found 
Exit if FF found (end of 

Get pointer to overflow entry 

Move to A 

and isolate the sector number 

Then form addr of sector buffer 

and move MSB of addr to H 

Now compute offset within sector 

Isolate offset to file entry 

and add offset to GAP'S 

Form addr of overflow GAP'S in HL 

Continue till end of gap's found 



MSB of EOF sector 
LSB of EOF sector 
Holds EOF byte offset 



DIR Option Text List 

DEFM *A ' Option 

DEFW 5D9BH Code address for A option 

DEFM 'I ' Option 

DEFW 5D0BH Code address for I option 

DEFW 'S ' Option 

DEFW 5CFDH Code address for S option 

DEFB 00H List terminator 



DEFB 
DEFB 
DEFM 
DEFB 
DEFB 
DEFM 
DEFB 
DEFB 
DEFM 
DEFB 



DIR Screen Displays 

1CH Clear screen 
1FH Home cursor 
'FILE DIRECTORY DRIVE 



C5H Compression code for 

03H Message terminator 

'NNNNNNNN — MM/DD/YY' 

0AH Line feed 

0DH Message terminator 

'LPJ> / END= / SIZE' 

03H Message terminator 



FREE Command Processing 



LD 
LD 



PUSH 
CALL 

JR 

LD 

ADd 

LD 

CALL 

JP 

LD 

LD 

LD 

LDIR 

LD 

LD 

LDIR 

LD 

LD 

LD 

LD 
LD 
SCF 
RRA 



JR 

INC 

DJNZ 



EX 

LD 

CALL 

POP 

PUSH 

CALL 



C,00H 
A,03H 
DE,5551H 
(DE) ,A 

4424H 

BC 
50FDH 

NZ,5F58H 

A,C 

A,30H 

(5F68H),A 

4AF0H 

NZ,554CH 

HL,4DD0H 

DE,5F6EH 

BC0008H 

DE,5F79H 
BC0008H 

HL,4D00H 
HL.4D00H 
DE.0000H 

B,23H 
A,(HL) 



C5F1EH 

DE 

0FFH 

NZ,5F19H 

L 

5F18H 



DE,HL 

DE.5F90H 

606CH 

BC 

BC 

512EH 



Default beginning drive number 

Illegal character to local DCB 

Address of local DCB 

Store illegal character so OPEN 

will return immediately 

OPEN dummy file 

(load SYS2 into 4E00) 

Save drive number 

See if drive available 

(use SYS2 subroutine) 

Jump if drive not available 

Fetch current drive number 

Convert drive number to ASCII 

and move it to display line 

Read GAT sector for drive 

Jump if error GAT sector read 

Addr of disk name in GAT sector 

Addr of disk name in display 

Number of bytes in disk name 

Move name from GAT sector to display 

Addr of creation date on display 

Number of bytes in date 

Move date from GAT sector to display 

Start addr of GAT table in GAT sec 

Start addr of GAT table in GAT sec 

Zero accumulator. Will hold 

number of free grans 

Max no. of GAT entries to examine 

Fetch a GAT entry 

Set CARRY so 1 is forced to bit 7 

Bit (granule) to carry 

Go if gran 0, current track assigned 

If not, count 1 free granule 

Test if bit 1 (gran 1) available 

Jump if granule 1 available 

Bump to next track in GAT 

Loop till all tracks tested 



Count of available grans to HL 

Array addr to save ASCII value 

Convert count to ASCII and save 

Restore current drive no. to C 

and save for later use 

Read HIT sector (use SYS2 subroutine) 



Prepare to Compute the Number of Files Assigned to 
Diskette by Counting HIT Indices 



5F31 
5F34 
5F37 
5F3A 
5F3B 
5F3C 
5F3E 
5F3F 
5F40 
5F41 
5F43 
5F44 
5F46 
5F48 
5F49 
5F4B 
5F4C 
5F4F 
5F52 
5F55 
5F58 
5F59 
5F5A 
5F5B 
5F5D 
5F5F 



C24C55 
21404D 



7E 

B7 

2001 

13 

2C 

7d 

E6E7 

BD 

28F4 

C620 

6F 

20EF 

EB 

11835F 

CD6C60 

21625F 

CD6744 

CI 

0C 

79 

FE04 

208C 

C32D40 



JP 

LD 

LD 

LD 

OR 

Jr 

INC 

INC 

LD 

AND 

CP 

JR 

ADD 

Ld 

JR 

EX 

LD 

CALL 

LD 

CALL 

POP 

INC 

LD 

CP 

JR 

JP 



NZ,554CH 

HL.4D40H 

DE.0000H 

A, (HL) 

A 

NZ.5F3FH 

DE 

L 

A,L 

0E7H 

L 

Z,5F3AH 

A,20H 

L,A 

NZ,5F3AH 

DE,HL 

DE,5F83H 

606CH 

HL,5F62H 

4467H 

BC 

C 

A,C 

04H 

nZ,5EEBH 

402DH 



Jump if error during read 

Start of HIT area for user files 

Clear accumulator 

Fetch a HIT index 

Set status flags 

Go if file assigned this slot 

Else count 1 space available 
_J Bump to next slot in HIT 
Prepare to test for 
end of slot range 
Reached end of a slot range? 
If not, go continue searching 
Yes, bump to next slot area 
Form next HIT address in HL 
Loop if end of HIT not reached 
Free HIT slots to HL for conversion 
5 byte array addr for ASCII HIT slots 
Convert free slots to ASCII decimal 
Addr of display line DRIVE X— ... 
Display title line with values 
Restore drive no. to C register 
Bump to next drive 
Move drive to A for 
Compare. Test if all drives done 
Jump if more drives to process 
Done, ret to SYS1 for next command 



5F62 
5F6E 
5F8F 



DEFM 
DEFM 
DEFM 



FREE display messages 

'DRIVE X — ' 

' NNNNNNNN MM/DD/YY 

' GRANS' 



0DH 



Message terminator 



RENAME Command Processing 



5F9C 115155 


LD 


DE,5551H 


5F9F CD1C44 


CALL 


441CH 


5FA2 C23A55 


JP 


NZ,553AH 


5FA5 1A 


LD 


A, (DE) 


5FA6 FE2A 


CP 


2 AH 


5FA8 CA3A55 


JP 


Z, 553 AH 


5FAB CD2444 


CALL 


4424H 


5FAE C24C55 


JP 


NZ,554CH 


5FB1 117155 


LD 


DE,5571H 


5FB4 CD1C44 


CALL 


441CH 


5FB7 C23A55 


JP 


NZ.553AH 


5FBA 3A5255 


LD 


A, (5552H) 


5FBD E607 


AND 


07 H 


5FBF FE03 


CP 


03H 


5FC1 3E25 


LD 


A,25H 


5FC3 D24C55 


JP 


NC,554CH 



Load DCB address 

SYSl/code 4, copy file name to DCB 

Jump if illegal chars in name 

Fetch 1st character of name 

Test for special system file (*) 

Error if found (file spec, required) 

OPEN file, load SYS2 at 4E00 

Jump if file not present 

Local DCB addr for 2nd file name 

SYSl/code 4, Copy file name to DCB 

Jump if illegal chars in new name 

Get access flags for file to RENAME 

Isolate access permission 

Test for RENAME permission 

Error code for not allowed 

Go if RENAME permission required 



Scan file name looking for a drive specification. 
If one is found an error has occurred. 



5FC6 217155 


LD 


HL,5571H 


5FC9 7E 


LD 


A, (HL) 


5FCA FE3A 


CP 


3 AH 


5FCC 285A 


JR 


Z,6028H 


5FCE FE20 


CP 


20H 


5FD0 3803 


JR 


C5FD5H 


5FD2 23 


INC 


HL 


5FD3 18F4 


JR 


5FC9H 


5FD5 363A 


LD 


(HL) ,3AH 


5FD7 23 


INC 


HL 


5FD8 3A5755 


LD 


A, (5557H) 


5FDB C630 


ADD 


A,30H 


5FDD 77 


LD 


(HL) ,A 


5FDE 23 


INC 


HL 


5FDF 3603 


LD 


(HL),03H 


5FE1 117155 


LD 


DE,5571H 


5FE4 CD2444 


CALL 


4424H 


5FE7 CA4E60 


JP 


Z,604EH 


5FEA FE18 


CP 


18H 


5FEC C24C55 


JP 


NZ,554CH 


5FEF ED4B5755 


LD 


BC,(5557H) 


5FF3 C5 


PUSH 


BC 


5FEF ED4B5755 


LD 


BC,(5557H) 


5FF3 C5 


PUSH 


BC 


5FF4 CDC14A 


CALL 


4AC1H 


5FF7 C24C55 


JP 


NZ.554CH 


5FFA 54 


LD 


D,H 


5FFB 7D 


LD 


A,L 


5FFC C605 


ADD 


A,05H 


5FFE 5F 


LD 


E,A 


5FFF 215D51 


LD 


HL.515DH 


6002 010B00 


LD 


BC,000BH 


6005 EDB0 


LDIR 




6007 CI 


POP 


BC 


6008 CDD64A 


CALL 


4AD6H 


600B C24C55 


JP 


NZ,554CH 


600E CD2E51 


CALL 


512EH 


6011 C24C55 


JP 


NZ,554CH 


6014 54 


LD 


D,H 


6015 58 


LD 


E,B 


6016 C5 


PUSH 


BC 


6017 215D51 


LD 


HL,515DH 


601A CD9B50 


CALL 


509 BH 


601D CI 


POP 


BC 


601E 12 


LD 


(DE) ,A 


601F CD4151 


CALL 


5141 H 


6022 C24C55 


JP 


NZ.554CH 



Addr of DCB with new file name 
Get a character from file name 
Test for : (drive spec) 
Go if : found (error) 
Test for end of name 
Jump if end of file name 
Else bump to next character 
and loop till end of name 
Then add drive specification 
Bump to next position in DCB 
Fetch drive number (in binary) 
Convert to ASCII 
and save in DCB after new name 
Bump to first pos. past drive spec, 
and store a terminator 
Addr of DCB with new file name 
OPEN new file name 
Go if name already exists (error) 
Test status for other error 
Jump if some other error occurred 
Drive no. to C, dir sector # to B 
Save drive number 
Drive no. to C, dir sector # to B 
Save drive number 

Read dir sector for file to rename 
Go if error during dir read 
Form addr for file entry in DE 
by 

adding 5 to the address in HL 
and moving it to DE 
Addr of SYS2 DCB with new file name 
Max no. of chars in new file name 
Copy new name from buffer in SYS2 
to directory file name area 
Restore dir sector/drive no. 
Rewrite directory sector 
Jump if error during write 
Use SYS2 subroutine to read HIT 
Jump if error while reading HIT 
H * MSB of HIT sector buffer. 
B = directory sector number 
DE ■ addr of HIT slot for this file 
Save directory sector/drive number 
Addr of SYS2 buffer with new name 
Compute hash code for new file 
Restore dir sector/drive number 
Save new hash code 

SYS2 subroutine to write updated HIT 
Jump if error while writing HIT 
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SYS6/SYS 



6025 C32D40 



6028 213160 



682B CD6744 
602E C33040 



6031 
6032 
604D 



604E 215760 
6051 CD6744 
6054 C33040 



6057 
6058 
606B 



CALL 

JP 



HL,6031H 



4467H 
4030H 



Done, load SYSl for next command 



Address of DRIVE SPECIFICATION 

ILLEGAL message 

Display error message 

Recall SYSl wait nor next command 



RENAME Error Messages 

DEFB 0AH Line feed 

DEFM 'DRIVE SPECIFICATION ILLEGAL' 

DEFB 0DH Message terminator 



LD HL,60=7H Address of DUPLICATE FILE NAME msg. 

CALL 4467H Display error message 

JP 4030H Recall SYSl and wait for next cmd. 



DEFB 0AH Line feed 

DEFM 'DUPLICATE FILE NAME' 

DEFB 0DH Message terminator 



Convert value in HL to decimal ASCII. On entry DE = 
address of 5-byte array where result is to be stored 



Pad character 

BC * 10,000 dec. 

Divide by 10,000. Save quotient 

BC = 1,000 dec. 

Divide by 1,000. Save quotient 

BC = 100 dec. 

Divide by 100. Save quotient 

BC = 10 dec. 

Divide by 10. Save quotient 

Get LSD of value 

and convert it to ASCII 

and save 

Bump to address of next 

byte in ASCII list 

Return to caller 



Save address where ASCII 

value is to be stored 

Save pad character 

D is quotient. Initialize as -1 

Clear CARRY 

Bump quotient for division 

Simulate division by compound 

subtraction 
(Loop till divisor greater 

than dividend 
Make dividend (remainder) positive 
Pad character 

B = quotient for current division 
Restore storage address for ASCII 
equivalent of value 
Save pad character. Will be replaced 
w/quotient if remainder non-zero 
Set status flag 
for remainder 
Jump if no remainder 
(division was exact) 
Quotient for last division 
Convert it to ASCII 
and save in ASCII list 
Set next pad char, to ASCII 
Bump to next address in ASCII list 
and return to caller 



Clear accumulator 

Fetch divisor 

Set status flag for division 

Jump if divisor zero 

Clear CARRY 

Number of bytes in dividend 

Save number of bytes 

remaining to be divided 

Save addreis of current 

byte to divide 

Fetch a byte to divide 

number of bits to test in byte 

so we can shift DE left 1 bit. 

Use addition. 

Left shift quotient 

Restore quotient to DE 

Most sig. bit of byte to CARRY 

Then shift it into A. 

Combine with other bits 

from dividend. Compare to divisor 

Jump if dividend less 

than divisor 

Adjust dividend so it is less 

than divisor 

Bump quotient 

Loop till all bits 

in dividend tested 

Restore address of current 

byte 

Bump to next byte of dividend 

Restore quotient of 

bytes divided 



606C 3E20 


LD 


A,20H 


606E 0111927 


LD 


BC2710H 


6071 CD8C60 


CALL 


(608CH 


6074 01E803 


LD 


BC03E8H 


6077 CD8C60 


CALL 


608CH 


607A 016400 


LD 


BC.0064H 


607D CD8C60 


CALL 


( 608CH 


6080 010A00 


LD 


BC,000AH 


6083 CD8C60 


CALL 


608CH 


6086 7D 


LD 


A,L 


6087 C630 


ADD 


A,30H 


6089 12 


LD 


(DE) ,A 


608A 13 


INC 


DE 


608B C9 


RET 




* 

608C D5 


PUSH 


DE 


608D 5F 


LD 


E,A 


608E 16FF 


LD 


D,0FFH 


6090 AF 


XOR 


A 


6091 14 


INC 


D 


6092 ED42 


SBC 


HL,BC 


6094 30FB 


JR 


NC,6091H 


6096 09 


ADD 


HL,BC 


6097 7B 


LD 


A,E 


6098 42 


LD 


B,D 


6099 Dl 


POP 


DE 


609A 12 


LD 


(DE),A 


609B 04 


INC 


B 


609C 05 


DEC 


B 


609D 2806 


JR 


Z,60A5H 


609F 78 


LD 


A,B 


60A0 C630 


ADD 


A,30H 


60A2 12 


LD 


(DE) ,A 


60A3 3E30 


LD 


A,30H 


60A5 13 


INC 


DE 


60A6 C9 

* 


RET 




* 

60A7 110000 


LD 


DE.0000H 


60AA 79 


LD 


A,C 


60AB B7 


OR 


A 


60AC 281B 


JR 


Z,60C9H 


60AE AF 


XOR 


A 


60AF 0603 


LD 


B,03H 


60B1 C5 


PUSH 


BC 


60B2 E5 


PUSH 


HL 


60B3 66 


LD 


H,(HL) 


60B4 0608 


LD 


B, 08H 


60B6 EB 


EX 


DE,HL 


60B7 29 


ADD 


HL,HL 


60B8 EB 


EX 


DE,HL 


60B9 CB04 


RLC 


H 


60BB 17 


RLA 




60BC B9 


CP 


C 


60BD 3802 


JR 


C60C1H 


60BF 91 


SUB 


C 


60C0 13 


INC 


DE 


60C1 10F3 


DJNZ 


60B6H 


60C3 El 


POP 


HL 


60C4 23 


INC 


HL 


60C5 CI 


POP 


BC 



60C6 10E9 


DJNZ 


60B1H 


60C8 C9 


RET 




60C9 56 


LD 


D, (HL) 


60CA 23 


INC 


HL 


60CB 5E 


LD 


E,(HL) 


60CC C9 

* 


RET 




* 

60CD 218B47 


LD 


HL,478BH 


60D0 2803 


JR 


Z.60D5H 


60D2 AF 


XOR 


A 


60D3 3C 


INC 


A 


60D4 B7 


OR 


A 


60D5 325E48 


LD 


(485EH) , 


60D8 C9 


RET 





. iLoop till 3 bytes divided 

Return to caller. DE = quotient 
Divisor was zero. Return 2 most 
significant digits 
of dividend as quotient 
Return to caller 



Address of WRITE routine in nucleus 

Go clear verify flag if (OFF) option 

Zero A, clear status flags 

Load 1 into A (auto verify writes) 

Set status flags non-zero 

Save verify flag in nucleus 

Return to caller 
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BOOTSYS 



************************* 



*********** 



BOOTSYS 
System Loader 



************************************ 



4208 00 


NOP 




4201 FEU 


CP 


11H 


4203 F3 


DI 




4204 31FC41 


LD 


SP,41FCH 


4207 21E242 


LD 


HL,42E2H 


420A CD9A42 


CALL 


429AH 


420D 3E01 


LD 


A,01H 


420F 32E137 


LD 


(37E1H) ,A 


4212 3A0242 


LD 


A, (4202H) 


4215 57 


LD 


D,A 


4216 1E04 


LD 


E,04H 


4218 01004D 


LD 


BC4D00U 


421B CDAA42 


CALL 


42AAH 


421E 2070 


JR 


NZ.4290H 


4220 3A004D 


LD 


A, (4D00H) 


4223 E610 


AND 


10H 


4225 21E542 


LD 


HL,42E5H 


4228 2869 


JR 


Z,4293H 



BOOT/SYS flag. Used by BACKUP 

Directory track number 

Disk I/O timing must 

not be interrupted 

Initialize stack pointer address 

Address of "CLS" video routine 

Issue video commands 

Unit select mask for drive 

Select drive 

Fetch directory track number 

Put it in the D register 

Put SYS0 directory no. in E 

Local buffer address 

Get SYS0 dir entry (trk 11/sec 4) 

Jump if any error during READ 

Get 1st byte of SYS0 dir entry 

Isolate entry occupied flag 

Address of DISK ERROR message 

If no entry then go display NO SYSTEM 



Initialize alternate DE and BC registers for get next 
byte routine from sector buffer at 4275. DE contains 
the track and sector number for the next sector to be 
read. BC contains the current buffer address. This code 
initializes BC to 4DFF which signals an empty sector 
buffer. 



Get alternate register set 

Fetch 1st GAP for SYS0/SYS 

D = track number for SYS0 

A ~ byte count, sector offset 

Isolate bit 5 {sector offset) 

and position it 

over bit so we can 

isolate bit 5 (bits 6/7 are zero) 

Put in H to multiply micro-style 

Sector offset bit * 2 

times 4 

times 5 gives 1st sector no, (0/5) 

Starting sector no. to E 

Signal empty buffer to force read 

on next buffer access 

Switch back to main register set 



Get next byte from sector buffer. 

Must be a loader code 

Is it code 1? (load data follows) 

Jump if not control code 1 

else get no. of bytes to load 

Put load count in B for DJNZ instr. 

Get LSB of load address 

Form load address in HL 

Count LSB as a byte loaded 

Get MSB of load address and 

Form load address in HL 

Count MSB as a byte loaded 

Go if no more bytes to load 

Get a byte of load data 

Save it at current load address 

Bump load address and 

loop till byte count exhausted 

Test for code 2 (transfer addr flag) 

Jump if control code 2 

Not code 1 or 2 so ignore it and 

get the byte count (bytes to discard) 

Fetch a byte to discard 

Go get another till all discarded 

Go get next control code 

Code 2. Skip over byte count 

Fetch LSB of transfer address 

Move it to L 

Fetch MSB of transfer address 

Form transfer addresss in HL and 

jump (entry point for SYS0/SYS 



Switch to alternate register set 

Bump buffer addr to next byte 

Jump if sector buffer not empty 

Save buf addr, prepare to read sector 

Unit select mask for drive 

Re-select to renew MOTOR ON cycle 

Read 1 sector (trk/sec no. in DE) 

Jump if any error during read 

Restore sector buffer address 

Bump sector number, then 

test to see if the last sector 

of the current track has been read 

Jump if it hasn't 

else reset sector no. to zero 

and bump current track number 

Get next byte from buffer (last byte 

if 428D not jumped to by 4277) 

Switch back to main register set 

and return to caller 



Address of DISK ERROR message 



422A D9 


EXX 




422B 2A164D 


LD 


HL, (4D16H) 


422E 55 


LD 


D,L 


422F 7C 


LD 


A,H 


4230 07 


RLCA 




4231 07 


RLCA 




4232 07 


RLCA 




4233 E607 


AND 


07 H 


4235 67 


LD 


H,A 


4236 07 


RLCA 




4237 07 


RLCA 




4238 84 


ADD 


A,H 


4239 5F 


LD 


E,A 


423A 01FFAD 


LD 


BC,4DFFH 


423D D9 


EXX 




* 





Main Loop 


423E CD7542 


CALL 


4275H 


4241 3D 


DEC 


A 


4242 2017 


JR 


NZ,425BH 


4244 CD7542 


CALL 


4275H 


4247 47 


LD 


B,A 


4248 CD7542 


CALL 


4275H 


424B 6F 


LD 


L,A 


424C 05 


DEC 


B 


424D CD7542 


CALL 


4275H 


4250 67 


LD 


11, A 


4251 05 


DEC 


B 


4252 28EA 


JR 


Z, 423 EH 


4254 CD7542 


CALL 


4275H 


4257 77 


LD 


(HL) ,A 


4258 23 


INC 


HL 


4259 18F6 


JR 


4251H 


425B 3D 


DEC 


A 


425C 280B 


JR 


Z,4269H 


425E CD7542 


CALL 


4275H 


4261 47 


LD 


B,A 


4262 CD7542 


CALL 


4275H 


4265 10FB 


DJNZ 


4262H 


4267 18D5 


JR 


4 23 EH 


4269 CD7542 


CALL 


4275H 


426C CD7542 


CALL 


4275H 


426F 6F 


LD 


L,A 


4270 CD7542 


CALL 


4275H 


4273 67 


LD 


H,A 


4274 E9 


JP 


(HL) 


I 


Gets 


Next Byte Frc 


4275 D9 


EXX 




4276 0C 


INC 


C 


4277 2014 


JR 


NZ,428DH 


4279 C5 


PUSH 


BC 


427A 3E01 


LD 


A,01H 


427C 32E137 


LD 


(37E1H),A 


427F CDAA42 


CALL 


42AAH 


4282 200C 


JR 


NZ.4290H 


4284 CI 


POP 


BC 


4285 1C 


INC 


E 


4286 7B 


LD 


A,E 


4287 D60A 


SUB 


0AH 


4289 2002 


JR 


NZ.428DH 


428B 5F 


LD 


E,A 


428C 14 


INC 


D 


428D 0A 


LD 


A, (BC) 


428E D9 


EXX 




428F C9 

* 


RET 




* 

4290 21F142 


LD 


HL,42F1H 



4293 CD9A42 


CALL 


429AH 


4296 CD4000 


CALL 


0040H 


4299 76 

* 


HALT 




429A E5 


PUSH 


HL 


429B 7E 


LD 


A, (HL) 


429C FE03 


CP 


03H 


429E 2808 


JR 


Z,42A8H 


42A0 CD3300 


CALL 


0033H 


4 2 A3 23 


INC 


HL 


42A4 FE0D 


CP 


0DH 


42A6 20F3 


JR 


NZ,429BH 


42A8 El 


POP 


HL 


42A9 C9 


RET 




42AA C5 


PUSH 


BC 


42AB CDB242 


CALL 


42B2H 


42AE El 


POP 


HL 


42AF C8 


RET 


Z 


42B0 44 


LD 


B,H 


42B1 4D 


LD 


C,L 


42B2 ED53EE37 


LD 


(37EEH) ,DE 


42B6 21EC37 


LD 


HL,37ECH 


42B9 361B 


LD 


(HL) ,1BH 


42BB F5 


PUSH 


AF 


42BC Fl 


POP 


AF 


42BD F5 


PUSH 


AF 


42BE Fl 


POP 


AF 


42BF 7E 


LD 


A, (HL) 


42C0 0F 


RRCA 




42C1 38FC 


JR 


C42BFH 


42C3 3688 


LD 


(HL) ,88H 


42C5 D5 


PUSH 


DE 


42C6 11EF37 


LD 


DE,37EFH 


42C9 C5 


PUSH 


BC 


42CA CI 


POP 


BC 


42CB 180B 


JR 


42D8H 


42CD 0F 


RRCA 




42CE 300A 


JR 


NC,42DAH 


42D0 7E 


LD 


A, (HL) 


42D1 CB4F 


BIT 


01H,A 


42D3 28F8 


JR 


Z,42CDH 


42D5 1A 


LD 


A, (DE) 


42D6 02 


LD 


(BC),A 


42D7 03 


INC 


BC 


42D8 18F6 


JR 


42D0H 


42DA 7E 


LD 


A, (HL) 


42DB E65C 


AND 


5CH 


42DD Dl 


POP 


DE 


42DE C8 


RET 


Z 


42DF 36D0 


LD 


(HL) ,0D0H 


42E1 C9 

* 


RET 




42E2 1C 


DEFB 


1CH 


42E3 IF 


DEFB 


1FH 


42E4 03 


DEFB 


03H 


42E5 17 


DEFB 


17H 


42E6 E8 


DEFB 


E8H 


42E7 4E 


DEFM 


'NO SYSTEM' 


42F0 0D 


DEFB 


0DH 


42F1 17 


DEFB 


17 H 


42F2 E8 


DEFB 


E8H 


42F3 44 


DEFM 


'DISK ERROR 


42FD 0D 


DEFB 


0DH 


42FE EB 


DEFB 


0EBH 


42FF 5F 


DEFB 


05FH 



Display error message 
Then wait for keyboard input 
(allow operator time to 
change diskette) 
Always causes RESET. 



Save address of text message 

Fetch a character from message 

Test for end of message 

Jump if end of message 

Not end of message, display char. 

Bump to next character in message 

Test for end of message 

Jump if not end of message 

Restore beginning of mess. addr. 

Return to caller 

Save caller's BC (sec buf addr) 

Read sector specified in DE 

Caller's BC reg (sec buf addr) 

Return if no disk error 

Disk error, retry operation 

after restoring caller's BC 

Load track/sector regs in controller 

Addr of stat/cmd registers for disk 

Issue SEEK command 

Delay so controller 

has time to respond 

to the command 

before we ask for the status 

Fetch controller status 

Controller busy flag to carry flag 

Loop till controller not busy 

Give controller READ SECTOR command 

Save track/sector number 

Addr of controller's data register 

Delay for controller, so 

It can react to last command 

Simulate CALL 42D0 to get data 

byte (or OP done status bit) 

Controller busy status to carry 

Go if OP done (not busy status) 

Get status 

Test DATA READY status bit 

Jump if data not available 

Read a data byte from controller 

Save in sector buffer 

Bump sector buffer address 

Loop till controller not busy 

Fetch controller status 

Isolate error flags 

Restore track/sector address 

Ret if no error. If error occurred, 

stop controller with force interrupt 

and then return to caller 



Clear screen 
HOME cursor 
Message terminator 
Select 32 characters/line 
Compression code for 40 blanks 

Message terminator 
Select 32 characters/line 
Compression code for 40 blanks 



Message terminator 
Not used 
Not used 
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alphanumeric characters 75 

alternate register 213 

analysis 118 

ancillary 14 

APPEND 163,165 

application 21,41 

approximate 94 

argument 52 

ASCCI 108 

ASCII 58,59,60,61,82,122,130,133,148,176,193,194 

ASCII to binary 176 

ASCII-to- decimal 82 

ASCII-to-hexadecimal 82 



assembler object file 52 

assemblers 14 

assembly language 31,119 

assembly language programs 141 

assembly programs 51 

assign 21,49,51,105 

ATTRIB 21,163,167 

attributes 21 

AUTO 20,22,25,30,31,163,173 

available 50,123,125 

available granules 48 

available slots 193 
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B register 39,52 

BACKUP 14,20,22,31,63 

backward 148 

base register 39 

BASIC 14,19,22,63 

BASIC 2 20,195 

BAUD 17 

bias 47 

binary 22,29,30,38,48,59,64,108,176,190 

binary data 189,190 

binary file 186,212 

binary module 64 

bit 33, 36,37, 38,46, 47, 50,51, 60,61, 118, 123, 125 

bit map 25,48,49,50,51 

bit position 125 

bit width 176 

blank 71 

block 189 

block move 79 

bookeeping 105 

boot 23,29 

Boot loaders 14,112,211 

BOOT/SYS 101,208,209,210 
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booting 14 

bootloader 28 

bootstrap 19 

branch 56,57 

branch instructions 157 

BREAK 35,66,141,145,199 

buffer 30,31,41,42,49,52,173,180 

buffer address 100,111,112 

buffer pointer 53 

bug 66,1 18 

build 51 

bumped 39 

busy 46 

byte 30,42,44,49,60,106 

byte count 52,189,190 
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card 17 

carriage return 30,31,71,81 

cassette 9,12,19 

character 13,60,68,81,142,166,176,177,197,199 

CIM 188 

CLOCK 15,20,21,22,30,33,34,58,163,173,174 

clock cycle 15 

clock display 31 

clock interrupt 35,37,38,39,58,60 

clock maintenance 37,38 

clock maintenance code 30 

clock maintenance routine 173 

clock processor 37 

clock routine 59 

clock service routine 16 

CLOCKON 59 

clock-driven 161 

CLOSE 20,31,49,111,114,117,166 

CMD 20,63,64,67,76 

command 20,21,25,46,64,71,72,141,173,174,178,195, 

— 196,198,205 

— 196,198,205 
comma nd character 146 
command functions 164 
command index 67 
command input 63 

command line 63,68,75,77,172,173,174,195,196,199 

command line buffer 31,32,53,67,68,75,130,168 

command line intrepreter 63 

command line processor 31 

command list 72,75,81,82,176 

command list address 71 

command string 163 

command string pointer 81 

command subroutines 14 

command terminator 72 

communication area 144 

communications 17,58 

compared 35 

compilers 14 

components 108 

compound subtraction 60 



computation 43,106 

computer 13,17 

conditionally 115,117 

conditions 15,34 

configuration 19,29,143 

consecutive 50 

console 14 

constant 47,54 

context 16,35,142,144,160 

context save area 143 

control 9,29,30,33,35,36,37,56 

control area 52 

control byte 52,53,186,190,191 

control codes 29,51,52,212' 

control stream 212 

controller 12,13,19,34,46,90 

conversion 60 

convert 43 

converted 176 

COPY 22,163,165,174 

copy operation 175 

core 27 

core image 189 

core image program 29 

core resident 16,19,20,31,53 

count- down timer 90 

counter 38,54,59,125 

CPU 9,12,13,15,33 

create 21,39,105 

creation date 25,179,191 

CRT 17 

current display address 143 

current loop 17 

* Y) * 

D register 52 

data 23,51 

data byte 52 

data structures 20,31,115,130,131 

data transfer 40,46 

date 191 

DATE 20,22,63,176 

date buffer 176 

DCB 30,39,41,42,43,44,45,48,49,51,52,53,60,68,75,76 

— 77,88,96,9911 1,112,113,114,115,117,119,122 

— 127,130,133,134,138,167,168174, 187,188,195 

— 197,198,199,204 
device tables 30 

DE 38,39,90 

DE register 52,53 

de-allocate 123,125 

debounce 60 

DEBUG 20,30,35,66,141,142,145,146,147,195 

DEBUG flag 57 

DEBUG,OFF 141 

DEBUGON 141 

debugging 35,57 

DEC 30 

decimal 82 

decimal digit 60 

decimal- binary 176 
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declaration 206 

decrementing 39 

delay loop 46 

delete 21 

delimiters 68 

demand 20 

descheduled 15,16,106 

description 39 

destination 174 

destination DCB 175 

destination files 174,175 

DEVICE 22,29,178 

'DEVICE *XX' 133 

device address table 29 

device code 133,134 

device mnemonic table 29 

device mnemonics 178 

device timing 12 

DI/RET 30 

digit 176 

digit 82,100,108 

DIR 20,21,63,167,178,179,185 

DIR/SYS 101 

direct connection 17 

Direct Memory Access 12 

direct references 163 

director 49 

directory 21,22,23,25,29,31,39,48,49,50,63,100,105 

— 106,115,117,118,1231 24,126,127 
directory entry 185 
directory entry 88,94,96,99,209,210 
directory sector 94,101,103,172,180,205,210,211 
directory sector number 55 
diretory sector 55,56,57 
disable interrupt 33,210 
disabled 29,35,46 
discarded 212 

disk 21,25,27,28,30,34,46,58,114 
disk addresses 21 
DISK BASIC 21,22 
disk controller 12,210 
disk driver 42,45 
DISK ERROR 210,213 
disk file 39,186,188,191 
disk interrupts 34 
disk operating system 28 
disk residency 209 
Disk resident 14,16,19 
disk services 21,31 
Disk space 22 
disk space 49 
disk space allocator 45 
disk status 46 
disk systems 16 
disk track history 31 
DISKDUMP 22 
diskette 26 

diskette name 179,191 
diskette password 201 
disks 9,19,28,130 
display 30,59,146,179,196 
display loop 180 



display routine 59 

display subroutines 151 

dividing 117 

division 43,45,59 

divisor 45 

DOS 20 

DOS READY 31,66 

Double- density 10 

drive 35,48,108,111,112,173,191,192,194,200 

drive number 92,122,204 

drive parameter 178 

drive ready 91 

drive specification 39,68,78,88,108,200 

driver 27,45 

drivers 19,99,102 

DUMP 186,187 
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E register 52 

edit 77 

editor 19 

editor/assembler 20,29,186 

eligibility 15 

Eligible 15 

enabled 29,33,35,46,47 

enables interrupts 161 

END 186,187,188 

end of file 21,41,42,45,197,199,212 

end-of-file 166,175 

entry 20,21,31 

entry point 111 

environment 15 

EOF 96,114 

EOF offset byte 103 

EOF pointer 115 

equal signs 80,81 

error30,31, 41, 46,47,56,81,82,89, 110,1 11,123,129,132 

— 137,165,197202 
***ERRCOD XX*** 133,134 
error code 129,130,135,136 
error conditions 56,166 
error count 47 
ERROR INDEX LIST 132 
ERROR LIST 132 
error message 130,131,133,135,136 
error status 52,55 
EXEC 167 
execute 31,52, 
executed 29,37,115,117,208 
execution 16 

execution address 29,53,189,191 
execution addresses 51 
executives 13 
exit 45,72,113 
expansion 20 
expansion interface 9 
extended 50 

extension 68,88,108,114,122 
extent 39 
external 16,20,33 
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false 36 

fault 47 

fetch instruction 52 

field 49,81 

fielded 15 

file 17,21,23,26,41,50,55,56,57,94,105,118,137,138 

— 172,182,196205, 211,213 
'FILE NNNNNNNN//EXT:D' 133 
file attributes 26,181 

file call 52 

file entry 94 

FILE LOAD ERROR 64 

file loader 31,52,53,68 

file management 87 

file management system 21,111 

file message 137 

file name 26,68,76,78,79,88,89,108,114,122,133,138 

— 168,174,181186,188,1 95,197,198,199,205 
FILE NOT FOUND 64,92 

file overflow 17,21 

file position 100 

files per line 183 

fill accesses 41 

fixed 33 

fixed addresses 31,164 

fixed basis 37 

fixed intervals 15,37 

fixed sector 48 

fixed- length 21 

flag bit 41 

flags 15,41,45,125 

flip-flop 11 

floppy 9 

flowchart 47 

flush 41,114 

flushing 42 

force interrupt 46,90 

FORMAT 14,20,22,31 

formatted 48 

forward 148 

FREE 21,191,193,194 

functions 31,35,41,46,63,113,161,195 
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GAP 44,45,48,49,50,56,57,96,105,106,112,114,116 

— 117,118,124,125,126 

GAT 23,25,48,51,118,123,127,138,173,191,192,193 

generated 35 

granule allocation pairs 26,29,42 

granule assignment 50 

granule counter 192,193 

granule number 43,45,49 

granules 22,42,43,44,45,48,49,51,96,112,114,117,118 

— 123,124,191 
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HALT 210,211,213 

hash 23,95 

hash code 88,89,92,94,102,105,106,110,205 

header message 193,194 

heads 47,50 

hexadecimal 81,148 

HIT 23,88,89,90,91,94,99,100,101,102,103,106,112 

— 118,122,123,126,127,138,191,193,194,205 
HL 20,35,36,38,39,52 
HL register 53 
hour counter 39 
hours 38,39 
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I/O 12,14,27,29,33,87,96,114,138,174 

illegal character 75,89,108 

illegal drive specification 89 

illegal separator 177 

in-line 114 

inactive 35 

INC 30 

incomplete 112 

incremented 38,39,194 

index 20,38,52,58,94,100,101,103,105,106,173,20,38 

— 52,58,94,100,101,103,105,106,123,130,131,134 
index registers 10 
index status line 90 
indexed 46 
indices 191 
indirect 112 
indirect jumps 157 
indirection 38,58 
indirectly 31,38,58,161 
indirectly branch 157 
inhibit scheduling 106 
inhibited 210 

INIT 39,96,99,101,102,105,174 
initial 49,50,51 
Initial Program Load 14 
initialization 19,20,27,31 
initialized 30,36,39,48,96,179,210 
initializes 125 
initiate 46 
input buffer 66 
instantaneously 34 
instructions 33,38,46,157 
instructive 125 
interactive 16 
interleaved 48 
intermediate buffer 81 
internal 35 

internal buffer area 88 
internal buffers 108 
internal data structures 141 
interpreter 19,20,65 
interrupt 15,16,20,21,27,30,46,47,57 
interrupt address 58 
interrupt address lists 57 
interrupt mask control 30 
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interrupt mode 1 29 
interrupt processing 31 
interrupt processor 30,34 
interrupt scan list 30 
INTERRUPT SERVICE list 58 
interrupt service routine 173 
interrupt status byte 33,35 
interrupt vector bias 10 
Interrupts 11,33,35,58,106 
interrupts enabled 37 
intervals 15 
intrepret 29 
invalid parameter 54 
INVISIBLE 169 
invisible attribute 167 
invoked 3 1 
IPL 14 

irrecoverable 21 
TX 38 
IX register 39,41 



Job schedule 34 
.IP 30 
JR 30 
jump 38,41 
jump table 31 

* jf * 

keyboard 9,17,19,30,31,60,63,64,67,71,72,142,201 

keyboard driver 60,61 

keypad 9 

keystrokes 60 

keyword 81,169 

KILL 20, 2 1,22,3 1.1 11, 112, 123, 167, 195 



LD 30 

length 72,136 

letter 71 

level 35 

LEVEL I 9 

LEVEL II 14,19,22,28,29,30,60,199,208,209 

LIB 22,195 

limit 39 

limitation 131 

line 196,199 

line number 197 

list 21,22,71,196,197,199 

load 19,20,22,28,31,52,55,57,198,208,209,210 

load address 52,141,189,190,212 

load file 52 

load module 189,190 

load operation 209 

loader 20,21,27,52 

loader control codes 186,189 

loaders 14,186 

local buffer 176,188 



locate 130 

located 39 

LOCK 200,202 

logic 9,10,118 

logical 40,42,96,114 

logical record length 41 

logical records 21,41 

logical WRITE 42 

loop 45,51,52,57,71 

lost data 47 

low-speed communications 17 



* M* 

machine 14,63 

maintained 49 

maintenance 30,39 

management 21 

mapping 17,59 

marked 50 

mask 30,35,36,46,59 

maskable 34 

Maskable interrupts 11,33,35 

masking 100 

match 71,169 

maximum 39,44,49,50,66,72,79,112,131 

mechanics 118 

memory 9,27,29,112,186,190,208,209 

memory display 147 

memory location 155 

Memory mapped 12,13,31,60 

memory resident 35 

message 30,130,134 

message file 130 

MESSAGE LIST 132 

micro 17 

micro- computer 14,16 

milliseconds 15,20,30,35,37,38,58,59,100 

mini 17 

mini computers 16 

minimizes 14,50 

minute counter 39 

minutes 38,39 

mod 45 

Mode 2 1 1 

MODEL I 9,11,15,19,33,34,60 

modified 115 

modifies 154 

modify 167 

modules 20,22,28,29,191 

modulo 43 

monitors 13 

most remainder 59 

most significand digit 59 

most significant byte 132 

motor on 90 

multi-mainframe 17 

Multi- sector 45 

multi- tasking 21 

multi-user 14,15,16 

Multi-user systems 15,106 

multiple 20 
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named file 29,51 

names 21 

negative remainder 60 

NMI11 

NNN 

NO 82 

NO SYSTEM 211 

Non- branching 157 

Non- direct 157 

Non-Maskable 11,33 

non- recoverable error 99 

non-system files 200 

nucleus 19,20,21,22,23,27,28,29,30,31,51,58,59,67,87 

— 103,90,91,99,100,106,111,114,116,129,134,141 

— 164,165,173,175,195,198,199,205 ,206,208,212 
number 176 

Numeric 9 



O 



OFF 82 

offset 41 

ON 68,174 

on line 192 

ON/OFF 173,206 

one 35 

op-code 46 

OPEN 20,31,39,52,87,88,96,99,101,102,105,108,134 

— 163,167,168,192,201 
operating 17,19,22 
operating system 13,14,63 
operating systems 17 
operation 41,47,173 
option subroutines 142 
optional 39,196 
options 65,169,172,178 
ordinals 100 
origin 41 
output file 186 
OVER 68,174 

overflow 26,41,45,48,49,50,96,105,106,116,123,126 
overhead 25 
overlaid 27 

overlay 20,21,27,29,31,55,66,130,132,138,141 
overlay loader 53 
overlay modules 163 
overlays 19,28,46,52,53,57,130 
overwrite 35 



P register 33,35 

packing 21 

paging 17,52 

parallel 19 

parameter byte 53,129,132,133 

parameters 20,38,39,41,42,45,46,47,53,66,80,137,164 

— 186,187,196 
parenthesis 80,81 

PARITY ERROR DURING READ 130 
parse 80,178,186,187,196,200,201,206 
parsing 163 
passes 35 

password 25,68,78,88,89,106,108,182,200 
password encode 201 
passwords 21,26,39,168 
pauses 198 
PC register 57,58 
peripheral 9 
permission 123 
permission flags 39,52,103 
periodic 34,37 
phrases 174 

physical 17,21,46,50,96,174 
physical I/O 12,40,41 
physical read 41 
physical transfer 45 
PIO210 

point of interrupt 16,35,37 
pointer 106,132,213 
POP 30 
POP.RET 11 
port addressing 12 
ports 9 

position 21,40,41,46 
POWER ON 19,33 
pressure 16 

primary 26,45,105,106,114 
primary register set 213 
PRINT 22,199 
print driver 199 
printer 17,19,30 
printers 9,199 
priority 15 
privileged 200 
procedure 30,31,176 
procedure area 173 
process 16,31 
processes 16 
processing 44 
processor 21,37,38 
processors 21,27 
program 13 
program context 141 
PROGRAM NOT FOUND 31 
program switches 179 
programmable registers 10 
programs 20,27 
PROT 21,169,172,200,202 
PROTECT 169 
protection 167 
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pseudo-ops 54 
purged 22 
PUSH 30,133 
PUSH,CALL,RST11 
PW200 



* Q * 

Quantitities 8 1 
quotient 45,59,60 
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Radio Shack 9 

RAM 9,19,29,30,111,112 

random 41,108,110 

re-scheduled 106 

reaction 34 

read 30,31,40,41,103,172 

READ 42,167 

read error 92 

reading 29 

ready 46,192 

Real time 14,16 

reconstructs 122 

record 17,21,42,49,61,96,117,119 

record length 39,96 

record level 40 

record manager 2 1 

record not found 47,175,197,199 

record number 41,42,43,44,45,49,96 

REFERENCED AT X'XXXX' 133 

refinery 16 

region 51 

register 10,16,36 

register context 99 

register display 148 

register's contents 155 

registers 16,35,37,46,144 

relative 42,43 

relative granule 44 

relative record numbers 21 

released 118,123 

reloaded 31 

relocatable 20 

remainder 45 

remote job entry 17 

RENAME 21,167,203 

repeated 60 

replacement 30 

request 55 

request code 55,111 

RESERVED COMMAND 164 

reset 125 

RESET 19,28,33,208 

residency 14,16 

resident 27 

resource 15 

restarted 159 

RESTORE 46 



restore head 46 

restored 35,37,47 

restriction 105 

resume 198 

RET 38,58 

retry 46,47 

return address 35,36,54,134 

rewind 21,40,41 

rewritten 172 

right parenthesis 81,82 

ROM 9,14,16,19,30,33,60 

routine 30 

row history buffer 60 

row index 61 

row number 61 

RS-232 9,17 

RST 11,52 

RST30 141 

RST 38 33 



scan 30,49,60,63,193 

schedule 15,16,106 

scheduler 15,16 

scheduling 21 

screen 210 

screen address 58 

scrolled 148 

search 23,45,49,90 

searching 31,44,45 

second 25,37,38,39,59 

second counter 38 

secondary 20 

section 30 

sector 21,23,25,26,40,41,42,44,45,46,49,50,100,102 

— 126,127,173,175,208,213 
sector 29 

sector buffer address 29,56,111,133,138 

sector buffer index 55,96 

sector buffers 27,39,41,42,52,53,56,92,100,114,115 

— 173,174,185,192,205,211,212,213 
sector number 49,106 

sector offset 43,211 

sector write 42 

sectors 22,43,48,126 

segments 130 

select 46,90 

selection 38 

separate 108 

separator 174,176 

sequence 19,30 

sequentially 41 

service 20,21,36 

service routine 15,16,36,37,138 

set 41,46 

shared- file 17 

SHIFT 198,199 

simultaneously 15,36 

Single 9,16 

single user 14,19 
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single-density 19,48 

single-density 213 

single-sided 19,48 

single-stepped 157 

slot 100,101,102,103,194 

slot counter 194 

slot entries 193 

slot group 194 

sorts 14 

source DCB 175 

source file 175 

space 21,80,81 

special cases 44 

special character 74 

specific 35,108 

stack 36,41,56,133,134,142,144,174 

stack address 58 

stack pointer 10,11,58,66,210 

stacked 33,35,54,58 

START 186,187,188 

start bit 17 

start up 25,29 

status 36,46,90,99,100,175,197,199 

status byte 36,37 

status flags 157 

status word 36 

stop bit 17 

store instruction 52 

stored 30 

strobe 60 

structures 31,108 

sub- tasks 21 

subroutines 21,31,36,37,38,39,44,45,46,50,52,157 

substituted 33 

suffix 63,67,76,78,79,188 

sum 47 

support 14 

suspended 33 

suspending 16 

swapping 17 

synchronization 210 

synchronizing 17 

synthesized 30 

synthesizing 46 

SYS 20,130 

SYS0 63,106,210,211,212,213 

SYS0/SYS 23,28,29,31,101,208,209 

SYS1 11,63,64,65,67,68,71,74,75,76,80,81,141,163 

- 164,166,168,174,175,178,187,188,195,197,198 

— 199,200,204,206 
SYS1/SYS 28,30,31,57 

SYS2 88,94,96,106,108,163,168,192,201 

SYS2/SYS 87 

SYS3 113,122 

SYS3/SYS 111 

SYS4 30,130,132,133,134,137,165,168 

SYS4/SYS 129 

SYS5 163 

SYS5/SYS 141 

SYS6 20,63,67,68,71,75,80,87,163,178 

SYS6/SYS 20,28,101 

system 19,20,21,23,25,26,27,28,36,48,105 



system area 176 

system calls 31,163 

system commands 30,63 

system conditions flags 66,76,200 

system DCB 56,57,67,68,71,74,76 

system device table 178 

system diskette 130 

system files 101 

system initialization 60,212 

system level calls 138 

system loader 57 

system overlay 46,51,53,129 

system overlay area 168 

system routines 41 

system stack 35,68 

system subroutines 38 



table 130 

table address 193 

table look-up 55,61 

table- driven 130 

TAPEDISK 22 

target record 45 

target sector 43,44 

task 21 

temperature 16 

terminal 15,17 

terminated 30,45,71 

terminating character 8 1 

terminator 72,134 

terminator flag 132 

testing 36,51 

text 5 1 

text list 148 

text strings 68 

TIME 20,22,27,37,38,60,63,176,206 

time buffer 206 

time of day clock 35,38 

time slice 15 

timesharing 16,17,34 

timesharing systems 15 

timing 17 

timing loops 13 

title 179 

TO 68,174 

total 49 

TRA 186,187 

TRACE 20,21,22,27,35,37,38,195 

trace display 31 

TRACE routine 57 

TRACE,OFF 58 

TRACE,ON 58 

track 21,23,42,44,45,46,48,49,50,51,96,100,102,111 

— 112,173,192,208,211,213 
Track 29 
track history table 46 
transfer 42,45,52 
transfer address 189,191 
Transfer address 31 
translate 21,42,55,61,130,211 
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translation 42,44,49,60 


* W * 


transmission 17 




TRAP 141,144,145,157,159 

trap address 141 

trap address list 143 

trap list 142 

trap list table 159 

TRSDOS 20 

TRSDOS 9,14,19,20,21,22,23,27,29,31,35,48,51,61 


W.D. 9 
waveforms 12 
WHAT 74,75 
word 131 

word address list 13' 
WRITE 40,41,42,101 


— 63,67,75,76,87,101,106,111,129,130,131,141 




— 5,208,212 
type 181 


* X* 


type instructions 157 
type 1 instructions 157 


X display mode 142 


type 2 instructions 157 




type 3 instructions 157 




type 4 instructions 157 


* Y * 


type 5 instructions 157 




type 6 157 


YES 82 



U ! 



unavailable 51 

underlying overlay 163 

unit 46,99,102 

unit not ready 47 

unit number 94 

unit select mask 46 

UNLOCK 200,202 

unpacking 21 

unused 30 

UPDATE 168 

update password 167 

updated 127,169,172,205 

Upper/Lower 9 

user 14,16 

user control 157 

user file load 76 

user level 138 

user-written 51 

utilities 19,22,51,52,101 

utility 20,22,27,31,66 

utility programs 51,129,130,141 



Z-80 9,10,11,141 
Zero 30,35,36 
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variable 21,39,186 

vector 15,206 

vector addresses 33 

vectored 29 

vectors 20 

VERIFY 22,52,111,206 

video 9,12,19,30,57,58,196,199 

video address 59 

virtual 17 

voltage 12 

volumes 9 
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Microsoft trademark Microsoft Corporat 
Apple trademark Apple Computer Inc. 
TRS-80 trademark TANDY Corporation 
Klectric Pencil © 1 SIS 1 Michael Shrayer 



('rices Suhject to change without notice 



BOOKS 

TRS-80 Disk & Other Mysteries. H.C. Pennington. 

The "How to" book of Data Recovery. 1 28 pages. $22.50 

Microsoft Basic Decoded & Other Mysteries. 

James Farvour. The Complete Guide to Level II 
Operating Systems & BASIC. 312 pages $29.95 



The Custom TRS-80 & Other Mysteries. 

Dennis Bathory Kitsz. The Complete Guide to 
Customizing TRS-80 Software & Hardware. 
336 pages 



$29.95 



BASIC Faster & Better & Other Mysteries. 

Lewis Rosenfelder. The Complete Guide to BASIC 
Programming Tricks & Techniques. 290 pages — $29.95 

Electric Pencil Operators Manual. Michael Shrayer. 

Electric Pencil Word Processing System Manual. 

1 23 pages $24.95 

The Custom Apple. Winfried Hofacker& Ekkehard 
Floegel. The Complete Guide to Customizing the Apple 
Software and Hardware. 1 90 pages $24.95 

Machine Language Disk I/0& Other Mysteries. 

Michael D. Wagner. A Guide to Machine Language Disk I/O 

for the TRS-80 Models I and II. 

Available October 1 982 $29.95 

TRSDOS 2.3 Decoded & Other Mysteries. 

James Lee Farvour. Commented Guide to TRSDOS 2.3 for 
the Model I. Available December 1 982 $29.95 



SOFTWARE 



Electric Pencil. Michael Shrayer. 

Word Processing System. Available in DISK $89.95 

STRINGY FLOPPY or CASSETTE $79.95 

Red Pencil. Automatic Spelling Correction Program. 
For use with the Electric Pencil Word Processing System. 
Available in DISK ONLY $89.95 

Blue Pencil. ^c Dictionary- Proofing Program. 

For use with the Electric Pencil Word Processing System. 

Available in DISK ONLY $89.95 

^C Requires Red Pencil program. 

BFBLIB. Lewis Rosenfelder. Basic Faster & Better 
Library Disk. 32 Demonstration Programs. Basic Overlays. 
Video Handlers. Sorts & more for the Model I & II. 
Available in DISK ONLY $1 9.95 

BFBDEM. Lewis Rosenfelder. Basic Faster & Better 
Demonstration Disk. 121 Functions, Subroutines & 
User Routines for the TRS-80 Model I & II. 
Available in DISK ONLY $1 9.95 



Add $4.00 shipping and handling charge per item. 

California residents add 6% sales tax. Canadian residents add 20% for exchange rate. 
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